





D 50 V2, p 41 » Un Vu- 
» mognétophone, p 44 e 











= TIREZ PLUS DE VOTRE TRS-80* 
ET DE VOTRE FOIRE SHARP 





À Logiciels : EDIT, p20; Accel3, p21; Pascal 80, p22 | 
e Côté court, p 23 « Trucs à brac, p 23e Déforma- | 
. tions, p 24. Tracé dun segment, p 28 « | 
+ Pour vos cassettes, p 29 Matériel : un 
L pente vocal, p$l; l'interface MDX3, 
. p 33 e Enseignement : la pompe aspirante, 
| p34e Iraitement de texte en Basic, p 37 < NewDos 
| BiR _fl mètre pour votre | 
se K=- Des outils pour vo- 

… tre programmation, p 45 - Gardez trace ER | 
mn des variables, pÆBeUnutilitäired'or, p5l = | 
… ° RUBRIQUE POQUETTES : La guerre froide, p nes 

N Face cachée du PC 1500, p57e3 programmes | 
de tri, p 99 . Bogues et trucs, p 6Ù + m— Le | 
——… lissage de courbes, p 6l e 

—— 1e ee p£ Om 


Q 


Æ- | 












°5-l‘ trimestre ICEX) : 





Possesseurs de TRS et de VIC, découvrez le 


“support du troisième type 


€y FLOPPY 


s WAFER 


50 
Se we 


Ur Wafer (cassette à bande magnétique sans finrestillustréicren taille réelle. 


2, 


et ses lecteurs 


ESF. (Exatron Stringy Floppy) vous apporte une immense 
souplesse d'utilisation, grâce à son branchement direct sur 
votre ordinateur, sans besoin d'interface d'extension. A un 
prix nettement inférieur’ au lecteur de disques, sa vitesse: 

“est surprenante: environ { Ko. par seconde, sans aucune 
manipulation, et avec une fiabilité inégalée sur un système à 
bande magnétique. Son manuel décrit avec soin et en fran- 
çais, les techniques évoluées de gestion des fichiers 
séquentiels, sur une ou plusieurs unités Chaînées. Existe aussi 
en coffret-avec son système d'exploitation, 5 wafers, des pro- 

grammes de démonstration et un classeur de wafers. 
SRE 3 mois pièces et main-d' œuvre. . 


Venez voir l'ESF. en démonstration permanente chez 
MICRO-ENERGY _ BOUTISOFT 
92, rue StLazare 9, rue de Lalande 
75009 PARIS 33000 BORDEAUX 
Tél: (1) 2812317 Tél: (56) 9455.08 


# Prix TIC. conseillés au 1/2/83: 


TRS-80 Mod 1 DriveO 2495- TRS-80 Mod 3 Drive 0 
TRS-80 Mod 1 Coffret 2995- TRS-80 Mod 3 Coffret 
VIC20/64 bientôt disponible TRS-80 Mod 3 suivant 


Importateur exclusif 
Recherchons des revendeurs 
TE - (1) 3584435 EE 


L'autre fournisseur de 


disques pour 
TRS modèle III" 


QUALITE 


Pour celà, nous avons sélectionné: 
e le meilleur contrôleur qui soit Il vous permet de piloter 

4 disques 5 ou 8 pouces (associé à DOSPLUS et à l’aide d'un 

câble externe). Ses connexions plaquées or vous assurent une fiabi- 
lité à toute épreuve. 
e TANDON, les disques les plus fiables et les plus performants, 
offrant un temps d'accès maximum de 5 ms. 
De plus, l'assemblage, le montage et les tests individuels sont assu- 
rés par nos équipes compétentes (prévoir 48 heures). Notre garan- 
tie de 3 mois s'étend sur les pièces et la main d'œuvre 


PUISSANCE 


Ne vous limitez pas à 175 Ko. par disquette. 

Pour un faible supplément, équipez-vous de disques double face 
en 40 pistes (384 Ko.), ou en 80 pistes (768 Ko). Ces unités peuvent 
être combinées de façon à satisfaire tous vos besoïns, même si 
votre ordinateur est déjà équipé d’un disque constructeur 


PRIX 


Là, n'ayez plus aucune hésitation. 
Nous vous offrons la 


configuration de base disque (LE 


5.995 


prêt à fonctionner 


En démonstration permanente chez 


MICRO-ENERGY  BOUTISOFT 
92, rue St Lazare 9, rue de Lalande 
75009 PARIS 33000 BORDEAUX 
Tél:(1) 2812317 Tél: (56) 91.55.08 


*Prix TTC. conseillés au 1/3/83- 
Disque 0 monté 175 Ko. TRSDOS 5.995 
Disque 0 monté 384 Ko. sans DOS 7.095 
Disque 0 monté 768 Ko. sans DOS 8.295 Disque interne supp. 768 Ko. 
Contrôleur complet sans disque 3.295  Dosplus 3.4 MOD 3 


Disque interne supp. 175 Ko. 
Disque interne supp. 384 Ko. 


Demandez notre catalogue de produits pour Modèle III 


Importation ct Diffusion A 
Te SE ès Importateur exclusif 
d'Equipement Micro-informatique 
34 bis. rue Sorbier - 75020 PARIS Recherchons des revendeurs 
£ Tai: (5) EVrES sur toute la France 
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Editorial 


Qui êtes-vous ? C'est la question 
que nous vous posons dans ce numéro. 
Non que nous ne sachions rien sur vous, 
puisque votre courrier nous donne sou- 
vent de vos nouvelles, 


Nous savons (bien sûr!) que vous 
vous intéresez aux TRS et aux poquettes 


Qui êtes-vous ? C'est la question 
que nous vous posons dans ce numéro. 
Non que nous ne sachions rien de vous, 
puisque votre courrier nous donne sou- 
vent de vos nouvelles. 


Nous savons (bien sûr!) que vous 
vous intéressez aux TRS et aux poquettes 
Sharp/ Tandy; nous savons que vous avez 
suffisamment bon caractère pour ne pas 
(trop) grogner malgré le retard de sor- 
tie de votre journal; nous savons que 
vous réalisez beaucoup de choses sur 
votre machine, même lorsque vous êtes 
débutant, et que vous n'hésitez pas 
(du moins, pas tous!) à nous adresser 
vos réalisations... ce qui fournit une 
bonne partie des articles du journal. 
(Rappelons au passage que tous les arti- 
cles sont rémunérés convenablement -mais 
ne comptez sur cette seule ressource 
pour vivre!) 


Nous savons... mais surtout nous 
ne savons pas qui vous êtes réellement; 
nous ne savons pas combien d'entre vous 
ont accés à un modèle 1, ou 2, ou 3, 
ou un couleur, ou un poquette; nous 
ne savons pas avec certitude quels sont 
les types d'articles qu'il vous plairait 
de voir davantage (ou moins!) dans nos 
colonnes; nous pensons que le journal 
tel qu'il est vous plaît (la preuve, 
vous le lisez!), mais nous savons qu'il 
est loin d'être parfait, et nous avons 
donc besoin de connaître vos attentes. 


Alors, accordez-nous, accordez-vous 
quelques instants pour remplir le ques- 
tionnaire de la page suivante: vos ré- 
ponses seront précieuses à votre jour- 
nal, et donc à l'ensemble des lecteurs. 


TRACE 


TRACE 


le magazine des utilisateurs de TRS-80: 













TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Vidéo-Génie*, LNW#* : 

si VOUS utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour vous. 
TRACE vous fournit quatre 

fois par an des programmes, 
des astuces, de nouvelles idées 
d'applications. TRACE est ue 
indépendant de tout constructeur, a 

et Vous tient au courant de toutes nie 

les nouveautés dans les domaines ee 0 des matériels et des 
périphériques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivité 
et indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 














MESSAGE DESTINÉ AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 












Désormais, tous les programmes 
publiés dans un numéro de TRACE 
et se rapportant aux TRS 80 de table 
ou à leurs compatibles 
sont regroupés sur une disquette 
que vous pouvez recevoir 
avec votre exemplaire de la revue. 






























‘TRS 80, Sharp, Vidéo-Génie et LNW sont des marques déposées. Trace a le même éditeur qu'ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 


LC = pement indispensable de voire TRS- 80 





Lecteurs 
qui êtes-vous? 


Il s'est écoulé un peu plus d'une année depuis notre 
numéro 1 et TRACE éprouve le besoin de mieux vous co- 
naître de façon à vous satisfaire au mieux et nous 
avons pensé qu'il serait utile de faire le point avec 
vous. Le questionnaire ci-joint qui se compose de 
trois volets : VOUS, VOTRE SYSTEME et VOTRE REVUE, 
nous aidera à mieux orienter la marche future de no- 
tre magazine et de pouvoir mieux répondre à vos at- 
tentes. Il est donc de votre intérêt de le remplir 
soigneusement et de l'envoyer sous enveloppe affran- 
chie dans les meilleurs délais à l'adresse suivante 


TRACE 

Enquête Lecteurs 
8 rue Saint-Marc 
75002 - PARIS 


Pour vous encourager à répondre, nous procéderons à 
un tirage au sort qui permettra à quatre lecteurs de 
gagner un abonnement d'un an ! 


Bien entendu, nous vous ferons part des résultats 
dès que le dépouillement aura été effectué. 

ATTENTION : afin de faciliter notre tâche, ne joi- 
gnez aucun autre courrier à vos réponses ! Merci. 


1) Age ? ——— 


D Masculin 


ER ST ROSE 
D Féminin 


3) Profession ? 


4) Connaissez-vous l'anglais 
O- oui 

O- non 

Ci- un peu 


5) Depuis combien de temps vous intéressez-vous à 
l'informatique ? 


6) Lisez-vous d'autres revues ? 
O- non 


5 7? 
ee ne Lesquelles 7 


1) Utilisez-vous votre système 
O- à des fins professionnelles 
Ü - à des fins pédagogiques 
O- comme "hobby" 


O - autres utilisations Lesquelles ? 


8) Préférez-vous 

5 - utiliser des programmes 
D - écrire des programmes 
Q- les deux 


9) Combien de programmes possédez-vous (environ) ? = 


10) Vous intéressez-vous davantage 
D - au matériel 

OI - au logiciel 

ÊÜ - aux deux 


11) Quel langage pratiquez-vous le plus 
D - BASIC 

O - assembleur 

Q - autre 


12) Etes-vous affilié à un elub ? 
© = non 
Ü - oui 


Dans votre entourage proche, combien d'autres 
utilisateurs connaissez-vous environ ‘ 








Lecteurs qui êtes-vous? 


10) Donnez en quelques mots les critiques que vous 
pourriez adresser à votre système actuel _______ 


TE UCI SES TERME De 0 0 OR PE ee eo 0 CS 

























11) Donnez en quelques mots les louanges que vous 

pourriez adresser à votre système actuel ______ 
1) Combien de systèmes basés sur des microprocesseurs | 
possédez-vous (ordinateur, poquette) 7? 


2) Décrivez votre configuration principale. Est-ce : 
O- un ordinateur de table O- un poquette 


III - VOTRE REVUE 
Marque = 


Année de fabrication ----- 
Taille mémoire totale -—----- K octets 






1) Quelle(s) rubrique(s) souhaiteriez-vous voir trai- 
tees-davantage dans l'a PevVUE D 


3) Pour le stockage, utilisez-vous 
D- cassette 


D- pete Cetriney, Floppy) =: ne 2) Quelle(s) nouvelle(s) rubrique(s) souhaiteriez- 
O- minidisquette (13 cm) Combien d'unités ? ----- 
vous y trouver ? 


O- disquette (20 cm) Combien dtrintenm Tr ess UN CSD EN TRES STE EEE SES RE os 











3) Le niveau général de TRACE vous semble-t-il : 

D- trop bas 

D- à sa bonne hauteur 

. OD- trop technique 

5) Placez une croix en face des extensions suivantes D- pas assez pédagogique 
que vous possédez : 

D- disque dur 

D- traceur de courbes 























}) Possédez-vous une imprimante ? ---- 


D- table à numériser 4) Quelle(s) autres) principale(s) critique(s) avez- 
O- doubleur de densité pour modèle 1 vous à formuler ? 

D- caractères minuscules D- accentués P 

D- horloge CPU rapide nm 
n- Orchestra 80 ou 90 STE 
HetcarLe COSGra SIL ee nn ne mn ae te Den a 7 10e D CURE 


O- stylo lumineux 
n- synthétiseur vocal 
D- entrée de la parole 







D- amplificateur sonore 5) Quel genre de programmes aimeriez-vous trouver 
D- carte graphique haute résolution plus souvent : 

n- carte d'adaptation CP/M pour modèle 1 ou 3 O- Educatifs 

D- interface série RS-232 D- Scientifiques 

O- modem D- De gestion 

O- autre - Laquelle ? D- Utilitaires 


O- Jeux 












6) Quel genre d'extension vous manque le plus parmi 


celles qui existent ? 6) Réponse facultative mais indispensable pour par- 


ticiper au tirage au sort (bien entendu, votre 
adresse ne fera l'objet d'aucune utilisation 
7) Quelle serait pour vous l'extension "rêvée" (qui commerciale) 
n'existe pas encore) ? 


RE NC NS ED En à "7 Nom, ER 
Adresse = en me 





Si vous deviez changer de système, quelle motiva- 
Ciontonlenter rent VOTRE CHODO —— 


TRACE N° 5 - Avril 1983 -6 








-——vous-donne-accès à toute la bibliothèque 
de programmes du TRS 80%. 
Tous-les-composants-du-PROF- 80 sont 
disponibles chez PENTA:8; 13 où 16. 

DU tatipatf le-BASIC 12 K-est vendu - 


ï Interface floppy 5 140 où 96 TPI. 1 à 4 lecteurs. 
MIE ASE j : ÉTÉ PRES DOS É DO: EW_-DOSY- 





Ranet: Rey Error Late 





e Carte CP/M 9 F (ct seul). 
e couleur rpREmeEt toutes les fonctions g sarphiaues 





tesse du printer {un obein! ques AprÈS HE 1 Hi 3 
secondes Votre ) 4 redi tendre : Ë IE : le Doubleur de He Permet de Havailler en 5” en 
double densité 1420 F- QE <âblé).… 





— Vous tapez su 
RSR JE SUI LE PRE KATR V 











“VENDUE MONTEE ET TESTEE 


“e C ; EL Ta sie de d b ë 
# Contrôle de 1 à e eurs- double den la nee MDX- ME 
TTC : Li 


canigue et 
“alimentation :: 











: - une: Hs a tail pas. HR ; © l ; Frnssssse esse: 
: per lécteur et permet: de Aransfert de tous vos programmes Simple densité : À f Î : | 





ARR nu = {nter-. 

—facc parallèle en standard - 80 car fligne - 

54-car-/sec-="fmpression en simple où 

double largeur- Papier normal - Entraine- 

= 2 ment par tracteurs ajustables-- Interfaces 
RS 80*, PET, RS:232, APPLE Il disp 












Voici fun des meilleurs “moyens de-faire des économies: Montez Votre interface 
ension TRS 80% vous-mêm MEX 2 et 3 ne sont pas 


Sontsurtout des interfaces 






























es lecteurs de disque r nécessitent des réglages d'azi- 
-| mutagetrès précis et. en conséquence, süpportenttres 
mal les transports St ponrquai à partir du 15 j jan Ier 






ant vous au moment de Votre achat et ce Rratuitement. = 

“De-plus pendant 45 jours ils pourront être rÉvisés et 
‘réglés-sur place (Penta 16) également grétuitement- 

- Lecteurs simple face double “densité 




















TOUT SUR LA MICRO 
INFORMATIQUE 


ù du 14 au 18 juin 1983 






L'ExXpOsition : 
du 14 au 18 juin 1983 


° mardi 14, mercredi 15, vendredi 17, dd 9h30 18h 
e nocturne le jeudi 16, de 9 h 30 à 22h + samedi 18 de 9 h 30 à 17h. 


Tous les matériels, toutes les applications des micro- personnelle, venez évaluer les matériels, comparer leurs 
ordinateurs. Que votre motivation soit professionnelle ou coûts et vous renseigner sur les applications disponibles. 


Nouveauté 83 : une animation « logiciel » 


(organisée par Sybex et Logiciels & Services). 


Une banque de données des logiciels présentés par meilleurs logiciels pour micro-ordinateurs. Les lauréats pré- 
les exposants à MICRO-EXPO vous guidera, selon vos  senteront leurs logiciels pendant toute la durée de MICRO- 
besoins spécifiques, à travers l'exposition. EXPO (Renseignements : Logiciels & Services, tél. : (1] 
Un « grand concours » destiné à récompenser les  226.11.25). 


Et pendant toute la durée de l'exposition, une animation-jeux : venez affrontez l'ordinateur et peut-être. le battre. 


Le Congres 
du 13 au 18 juin 1983 


Du débutant à l'expert, une occasion unique dans l'année de se former et de s'informer. 



















Séminaires professionnels Conférences Grand Public 









Les micro-ordinateurs : présentation, choix Choix d'un micro-ordinateur 












Les microprocesseurs 
Les langages : BASIC, PASCAL, APL 
Les nouveaux langages : FORTH, LOGO, PROLOG, C 


Les micro-ordinateurs de poche 





Le traitement de texte 











L'enseignement assisté par ordinateur - E.A.O. 


La télématique 
< Les systèmes d'exploitation pour micro-ordinateurs 16 bits 
Le traitement de texte 


Journées spécialisées, avec démonstrations : 
— pour les professions juridiques, 

— pour la médecine, 

— pour l'agriculture. 









L'entreprise, son système d'information et l'informatique 


La comptabilité et ses logiciels 


Les bases de données et leurs logiciels 






Journées des constructeurs : 
COMMODORE, GOUPIL, HEWLETT-PACKARD, 
TANDY, THOMSON, VICTOR LAMBDA 


La gestion et le Visicalc 
Le système d'exploitation MS-DOS 








INFORMATION 
NICE EE ue MR cat de dm de tE 


Code postal : 1111 1] Ville : 
[] ____ entrées{s) à demi-tarif CO Programme détaillé du congrès 
4, place Félix-Éboué - 75583 PARIS Cedex 12 - Tél. : (1) 347.30.20 - Telex : 211 801 F 
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8° Congrès-Exposition - MICRO-ORDINATEURS 


Palais des Congrès - CIP - Porte Maillot - Paris 


SYBEX organisé par 
SYBEX 4, place Félix-Éboué - 75583 PARIS 


.. 


Tél. : (1) 347.30.20 - Telex : 211 80RE 


fé 






LIBRAIRIE 
POUR 
TRS-80* ET 
VIDEO-GENIE 


MACHINE LANGUAGE DISK 1/0 & 
OTHER MYSTERIES : 

Pour Modèle 1 et Modèle 3. Tout sur 

le contrôle des disquettes en langage 
machine. Lecture/écriture d'une piste, 
d'un secteur, etc. Utilisation des routines 
des DOS, TRS DOS, NEWDOS, LDOS. 
uote PS AP UNE 345 F TTC 


MANUEL DE L'EDITEUR 
ASSEMBLEUR PLUS DE 
MICROSOFT (en français) 

Manuel d'utilisation, en français, de 
l'Editeur-Assembleur Plus de Microsoft. 
Vous apprend à utiliser l'Editeur- 
Assembleur pour créer et mettre au point 
vous-même des programmes en langages 
machine sur TRS-80 et Vidéo Génie. 

72 pages en français. ........ SSF TTC 


LE MANUEL D'UTILISATION 

DU DOS : 

Concerne TRS DOS (Tandy) et New- 
Dos. Plus (Apparat), les commandes, 
les utilitaires, etc. 

90 pages en français. ........ 9% FTIC 


TRS DOS 2.3 DECODED & EAU 
OTHER MYSTERIES NO 
Tout sur le Système d'Exploitation de 
Disquettes TRS DOS 2.3 de Tandy. 
Dans cet ouvrage vous trouverez tous 
les détails sur le fonctionnement du 
DOS 2.3, ses utilitaires, 

ses principales routines, etc. 

Ouvrage très précieux pour ceux qui 
veulent aller plus loin que le simple 
Basic et surtout pour ceux qui 
programment en langage machine. 

Au sommaire : la gestion des fichiers, 
les utilitaires du DOS 2.3, les 
commandes, la structure du « directory »; 
étude détaillée de SYS 0, SYS 1,....., 
SYS 6 et de BOOT/SYS (Avec le 

listing complet et commenté de chacun 
de ces modules système). 

Etude détaillée de nombreuses routines 
pouvant être appelées par vos 
programmes en langage machine. 

300 pages en anglais. ....... 335 F TTC 


TRS-80 DISK & OTHER MYSTERIES : 
Tout sur les disquettes du TRS-80 : 
architecture du directory, organisatiôn 
des fichiers, comment récupérer des 
données ou des programmes sur 
disquette abîmée, etc. 


MICROSOFT BASIC DECODED 

& OTHER MYSTERIES : 

Toutes les routines de la ROM utilisables 
pour programmer en langage machine : 
adresse, contenu des registres, etc. 
Organisation et déroulement d'un 
programme Basic, où il commence, où 
il stocke ses données, etc. 


TRS-80 ASSEMBLY LANGUAGE 
SUBROUTINES : 

Une collection de routines, simples à 
utiliser, pour votre TRS-80 (mod 1 et 
mod 3), ou votre Vidéo-Génie. 
Chaque routine est expliquée de façon 
très détaillée avec schémas de 
fonctionnement. Exemples : 

Tri d'un vecteur, lecture/écriture 
cassette, déplacement d'un point sur 
l'écran, addition et soustraction, 
lecture/écriture disquette, hardcopy 
écran, etc. 

En tout 65 routines utiles, puissantes 
et très rapides. 

222 PROS Eee 435F TTC 


BASIC FASTER AND BETTER 

& OTHER MYSTERIES : 

Enorme recueil de «trucs » de 
programmation de haut niveau : 
Stringpacking, line packing, etc. 

295 F TIC 


THE CUSTROM TRS 

& OTHER MYSTERIES : 

Tout sur le hardware du TRS-80. 
Nombreux montages pour améliorer 
votre TRS : haute résolution graphique, 
inversion vidéo, majuscules/minuscules, 
comment faire de la musique, etc. 

330 papes... LS er 345 F TTC 


Pi — 
TESDOS 2,3 1HCODE1» 
OTHER MYSEERÉES 





70 PROGRAMME BASIC TRS-80 

1&æ 

Ce livre est un recueil de 70 programmes, 
écrits en BASIC pour les micro- 
ordinateurs « TRS-80 modèle 1 level 2» 
et « TRS-80 modèle 3». Vous pouvez 
utiliser ce livre, que vous sachiez ou 

non écrire des programmes en BASIC. 
Les auteurs y décrivent soigneusement 
chaque programme en donnant des 
exemples d'utilisation et le listing 
complet du programme. Quelques 
exemples de ces programmes : valeur 
future d'un investissement, valeur future 
d'une série de dépôts réguliers, 
échéancier d'intérêts, taux de 
dépréciation, remboursements réguliers 
sur un prêt, solde restant dû sur 

un prêt, tableau d'amortissement d’un 
prêt, facteurs premiers d'entiers, 
opérations sur vecteurs, conversion de 
coordonnées, tracé de courbes, 
d'interpolation, intégration (plusieurs 
méthodes décrites), dérivation, racines de 
polynômes, programmation linéaire, 
opérations sur matrices, lois statistiques, 
régression linéaire, régression 
géométrique, tri, etc. 

198 pages en français. ....... 85 FTIC 





TRS-80 GRAPHICS FOR 
MODEL 1 and MODEL 3{Byts Books): 
Très bel ouvrage abondamment illustré 

Sur le graphisme TRS-80/SET et RESET, 
DE langage machine, etc. 


TRS-80 ASSEMBLY LANGUAGE 
(Prentice-Hall) : 

La programmation en langage machine 
sur TRS-80. 190 pages... 145 F TIC 


TRS-80 Interfacing Book 1 : 
Comment faire communiquer le TRS-80 
avec son environnement : convertisseur 





Q/A, etc. 190 pages. ....... 115FTIC 
TRS-80 interfacing Book 2 : CIDEO-GENIE 
Encore d'autres circuits d'interface. AVEC 2 K RAM.......... 3500 F TTC 
Pages: 115FTIC DRIVE 
MADOET AC LS Tant pts (Lecteur/enregistreur 
SA OLES “" 
& cms ce e 22 de disquettes). ............. 3800 F TIC 
IMPRIMANTE 
MICROLINE 90... TS FTCE 
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FRAIS DE PORT ET D'EMBALLAGE 

Ajouter 220 F pour toute commande comportant, pour tout ou partie, des articles tels 
que : unité centrale, floppy-disk, imprimante, moniteur vidéo, papier pour imprimante. 
Transport par service express avec assurance comprise (Corse, DOM-TOM, étranger, 
nous consulter par téléphone ou courrier en ce cas). 














Enfin, du nouveau à l'Ouest de la France. Aver l'arrivée 
de SIVEA à Nantes, vous allez pouvoir bénéficier d'un 
service compétent pour vous équiper en micro-nformatique. 

Les toutes dernières nouveautés du marché américain 
vous sont désormais accessibles, ainsi qu'une gamme excep- 
tionnelle de matériels, logiciels, livres et revues. Et, naturelle - 
ment, des conseillers avertis sont là pour vous accueillir et 
vous guider dans votre choix. (Entrée libre). 


LES MEMES PRODUITS 
ET LES MEMES SERVICES QUE SIVEA PARIS 

Tout ce qui a fait l'incontestable succès de SIVEA à 
Paris et à Lille est maintenant disponible près de chez vous, 
à Nantes. Vous trouverez ainsi dans cette boutique deux 
secteurs distincts : 

UN SECTEUR INFORMATIQUE POUR L'ENTREPRISE 

Pour les entreprises de toutes tailles, professions 
libérales, artisans, commerçants, administrateurs... 

Quelle que soit l'application de la micro-informatique 
que vous envisagez : comptabilité, gestion des stocks, 
facturation, paye, traitement de textes, budgets, statistiques, 
gestion de fichiers, etc, des conseillers sont là pour étudier 
avec vous quelle sera la meilleure solution (matériels et 
logiciels) pouvant satisfaire pleinement vos besoins et entrant 
dans le cadre de vos contraintes budgétaires. 

Sur simple rendez-vous, il vous effectueront gratuit- 
ement les démonstrations nécessaires et établiront un devis. 


UN SECTEUR LOISIR-INFORMATIQUE 
où vous trouverez les produits destinés à la micro- 
informatique domestique : 

e Des micro-ordinateurs : APPLE, THOMSON, TEXAS, etc. 

e Des logiciels de jeux : jeux de stratégie, wargames, 
simulations, aventures, échecs, dames, othello, Go, etc. 

e Des utilitaires et des langages pour programmer. 

e Des livres et des revues en français et en anglais. 


Et toujours, bien sûr, les toutes dernières nouveautés du 
marché américain aussi vite que dans les meilleures boutiques 
de Californie ! 

RENDEZ-VOUS CHEZ SIVEA NANTES DES LE 30 MARS 

Dès Mercredi 30 Mars, SIVEA Nantes est à votre disposition 
du Mardi au Samedi, sans interruption de 9 h 30 à 18 h 30 
et le Lundi de 13 h 30 à18 h 30. 
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PROGRAMMEZ EN BASIC SUR L'ouvrage sur le VIC 20 se compose À E. 
TRS-80 Léopold LAURENT d'exercices d'application (réalisations de pr 

Tome 1 - a 196 pages = Per 80 FIG dires) congés. no. PROGRAMMEZ 
Tome 2 - Réf. : 251 - 304 pages - Prix: 89 FTTIC À paraître : EN Fr SUR 
PROGRAMMEZ EN BASIC SUR  PROGRAMMEZ VOS JEUX SUR A, 14 À 
VIC 20 Günter O. HAMANN GOUPIL nt LULU 


F. ABELLA - 200 pages - Réf. : 269 
Tome 1 - Réf. : 244 - 208 pages - Prix : 80 F TTC 
Tome 2 - Réf. : 245 - 208 pages - Prix : 80 F TTC Rappel : 


Ces ouvrages, en deux tomes, ont été conçus INTRODUCTION AU BASIC 
pour vous permettre d'apprendre rapidement Pierre LE BEUX 
à programmer en BASIC un micro-ordinateur 335 pages - Réf. : 216 - Prix : 108 F TTC 


particulier. LE BASIC PAR LA PRATIQUE 
Découvrez le fonctionnement de votre micro- Jean-Pierre LAMOITIER 
ordinateur à l'aide de programmes très simples 246 pages - Réf. : 231 - Prix : 108 F TTC 


et abordez l'étude d’une nouvelle notion en , 
procédant à la modification d’un programme hs a EN BASIC 


déjà connu. 172 pages - Réf. : 246 - Prix : 89 F TTC 
L'ouvrage sur le TRS-80 présente de NOUVEAUX JEUX 
nombreux programmes d'application : factura- D’ORDINATEUR EN BASIC 


tion, gestion de stocks, paye, gestion de fichier, David H. AHL 
histogrammes, traitement de texte. 186 pages - Réf. : 247 - Prix : 89 F TTC 


SYBEX : 80 titres sur la micro-informatique 


NORGE Re NT À Adkese: Less 


Code Posial : 11 | | | Ville: 


SYBEX Je désire recevoir : ( votre catalogue détaillé (gratuit) 
[ les livres suivanis : $. ex. réf. ; ex. réf. ex. réf. 


ex. ré nee, 


Ci-joint mon règlement plus frais d'envoi : 1 livre : 12,50F-2à4:21F-4à8:25F. 


4, place Félix-Eboué - 75583 PARIS Cedex 12 - Tél. : (1) 347.30.20 - Télex : 211801 F 
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Le modèle 3 a du mal à se "convertir"... 


- Je vous signale que sur les modèles 3 récents "AZE- 
RTY" ou "européens", les programmes CONVERT et XFER- 
SYS ne sont plus fournis avec le TRSDOS. Le construc- 
teur, dans l'addendum du manuel précise : "il n'est 
pas CERTAIN qu'un programme qui peut être exécuté sur 
les modèles 1 ou 3 version américaine soit exécutable 
sur modèle 3 européen..." Ceci semble rendre impossi- 
ble l'exploitation des nombreux programmes réalisés 
sur modèle 1 (dont les disquettes TRACE) et risque 

de toucher un nombre croissant de lecteurs. Est-ce 
que le transfert de CONVERT d'un TRS80 américain ré- 
soudrait le problème ? (Ph. Gaillard, Tours) 


* Il nous est difficile de répondre à cette ques- 
tion tant que nous n'avons pas "mis la main" sur 
l'un de ces nouveaux modèles, mais cette réponse 
devrait pouvoir vous être fournie par le magasin 
où vous avez acheté votre ordinateur. Pour notre 
part, nous pensons que ce matériel étant très 
récent, vous avez reçu une disquette provisoire 
ne possédant pas encore (pour une raison obscu- 
re) ces deux utilitaires. Nous refusons en effet 
de croire que Tandy Europe/Matra coupe ainsi le 
maître pont qui relie le modèle 3 à l'énorme bi- 
bliothèque de logiciels existants sur le modèle 
1. En attendant, nous vous conseillons d'insis- 
ter auprès du constructeur afin que ces program- 
mes légitimes vous soient fournis. 


Recherche utilitaire de recherche... 


- Différents logiciels tels que BASCOM et Infinite 
BASIC fonctionnent très bien sur modèle 1 sous TRSDOS 
mais ne veulent rien savoir sur modèle 3. Peut-être 

la cause de ces insuccès réside-t-elle dans les dif- 
férences entre les adresses pilotes que vous signalez 
dans TRACE n° 3, page 22 et, je cite, "qu'il vous suf- 
fira de modifier avec un utilitaire de recherche"... 
Je pense donc exprimer un souhait assez répandu en 
vous suggérant de publier cet utilitaire si simple 

(1!) dans un prochain numéro. (Paul Bodden, Liège) 


* D'abord, nous n'avons jamais dit que cet utili- 
taire était simple... mais il fait ordinairement 


partie (il en existe différentes versions) de la 
panoplie du "bricoleur" de logiciels auquels s'a- 
dressent certaines rubriques de ce journal. De mê- 
me que pour les montages pratiques que nous publions 
il est nécessaire d'avoir un fer à souder, des sché- 
mas, etc... pour faire un "patch", il est conseillé 
de posséder un certain nombre d'outils logiciels 
tels que moniteur, désassembleur, patcheur... avec 
lesquels la recherche en mémoire ou sur disque se 
réduit à un jeu d'enfant ! Ceci dit, nous ne pen- 
sons pas que la solution à vos problèmes actuels 
soit dans les adresses de pilotes. Il s'agit d'un 
problème plus général lié au manque de compatibili- 
té entre le TRSDOS du modèle 1 et celui du modèle 

3. D'autres systèmes d'exploitation tels que LDOS 

ou NEWDOS-80 offrent une compatibilité plus étroi- 
te entre les deux modèles et leurs concepteurs pu- 
blient régulièrement les aménagements nécessaires 

en vue d'assurer une compatibilité encore plus gran- 
de. 


Il y a comme un défaut... 


- L'utilitaire "super driver" paru dans le numéro 1 
TRACE a le défaut suivant : lorsque l'on paramètre 
par exemple pour un format de 66 lignes par page 
(soit : PARAL L-66,PAGE=1), le compteur de ligne.ne 
tient pas compte de la ligne où est imprimé le mot 
"page", ce qui fait un total effectif de 67 lignes. 
Deux solutions : la première consiste à paramètrer 
une ligne de moins (LIGNE=65) ; la seconde d'ajouter 
l'instruction "INC (IX+4)". en ligne 2305. Depuis, je 
ne peux plus me passer de PARAL ! (Dominique François, 
Toulouse) 


* Cela résoud peut-être votre problème mais ce 
n'est pas la vraie solution ! Il n'est pas né- 
céssaire d'effectuer cette modification, le comp- 
teur ligne étant normalement mis à jour à la fin 
du message "PAGE xx" par le pilote standard du 
TRS situé en mémoire morte (adresse 5C1H) sur 
détection du code ODH (retour chariot). Par con- 
tre, il est probable que votre imprimante ne né- 
cessite pas de code OAH après ODH et il faut donc 
le supprimer du message afin qu'il ne provoque 
pas un saut de ligne supplémentaire en remplaçant 
la ligne 1790 du programme source par "DEFW OD2 
OH" ou la ligne 2260 par "LD B,8". 


Un matériel en français S.V.P. 


- Pourriez-vous m'indiquer qui pourrait me fournir un 
manuel en français concernant l'imprimante Line Prin- 
ter VIII (référence catalogue Tandy 26.1168). J'ai 
bien ce manuel eñ anglais mais ne connaissant pas cet- 
te langue, c'est pour moi un gros handicap. (Antoine 
Muyor, Vitrolles) 


* Au fait, une certaine loi n'obligerait-elle pas 
les constructeurs à fournir une documentation 
française ? En attendant, si un lecteur peut ai- 
der Antoine Muyor, qu'il nous le fasse savoir. 


Des programmes plus longs ? 


- Pourquoi dans vos numéros, ne donnez-vous pas des 
programmes plus longs... J'espère que vous y remédie- 
rez au plus tôt. (Robert Serge, Bruxelles) 


* Nous espérons que le programme "roulette" de 
Frédéric Mora paru dans notre numéro 4 a répon- 
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du à vos souhaits. Néanmoins et dans la mesure 
du possible, nous évitons de publier de longs 
programmes pour diverses raisons : d'abord, nous 
essayons de varier les sujets le plus possible 
afin de toucher le maximum de lecteurs de façon 
à ce que chacun puisse y trouver au moins un su- 
jet qui l'interesse. Publier de longs programmes 
réduit grandement le choix des sujets ; de plus, 
il ne serait pas sage de chercher à réduire da- 
vantage les listes, surtout si l'on veut conser- 
ver la lisibilité actuelle ; enfin, nous ne pou- 
vons publier que les programmes que nous rece- 
vons et il se trouve que la majorité d'entre eux 
ne sont pas particulièrement longs ! 


Son sur Vidéo-Génie 


- La documentation du Génie 1 se vante de l'existence 
d'un haut-parleur mais ne dit rien sur la programma- 
tion permettant d'en faire sortir des sons ; pourriez- 
vous publier un article à ce sujet ? (Jean-Marie Pic, 
Ermont) 


- Mon modèle de VGS ne possède pas le son. Sur quelles 
broches du connecteur DIN (sortie 2ème cassette) faut- 
il brancher l'amplificateur extérieur, et surtout : 
comment obtenir des sons ? (Philippe Juhel, Le Havre) 


* Les commandes sonores utiisées par le Vidéo Génie 
sont identiques à celles du TRS modèle 1 (OUT 
*‘255,X avec X pouvant prendre les valeur 0 à 3) 
sauf que la sortie du magnétophone intégré (uti- 
lisée également pour le son sur les modèles ré- 
cents) doit être préalablement sélectionnée par 
un OUT 254,0 (OUT 254,1 sélectionne la sortie de 


la seconde cassette, utilisable aussi pour un 
amplificateur extérieur). Pour produire des sons, 
vous pouvez essayer le générateur d'effets sono- 
res décrit dans TRACE numéro 4, page 47. Concer- 
nant le brochage de la prise DIN, il est égale- 
ment compatible avec celui du TRS modèle 1 (vue 
extérieure, broches orientées vers le bas) 
points extrêmes (1 et 3) = contacts de commande 
moteur du magnétophone ; point central bas (2) - 
masse ; point de gauche (5) = sortie son ou cas- 
sette ; point de droite (4) = entrée. 


Et le TRS couleur ? 


- Je m'étonne de l'absence de toute information con- 

cernant le TRS couleur. Est-il possible de lui consa- 
crer une rubrique comme pour le poquette ? (Alexandre 
Maggioni, Lausanne) 


* Pourquoi pas, après tout ? Le malheur, c'est que 
nous recevons des articles sur le poquette mais 
aucun à ce jour sur le TRS couleur ! Cette situa- 
tion ne vas probablement pas durer, nous l'espé- 
rons... 


Ca ne marche pas...! 


- J'ai un modèle récent de TRS et je vous fais savoir 
que le programme VERCS du numéro 2 de TRACE ne fonc- 
tionne pas correctement (Christophe Wolfhugel, Hoerdt) 


* Bien que vous soyez le seul et unique lecteur à 


»- 


Avec le modèle Visicalc, vous pouvez créer sur votre P.S.I. 
(Petit Système Individuel) un tableau comportant des titres, 
des valeurs et des formules. Dès que vous changez une 
des valeurs numériques, tout le tableau se met à jour en 
fonction des formules. Cet ouvrage vous guide pas à pas 
dans l’utilisation du Visicalc, à l’aide d'exemples pro- 
gressifs. De nombreux cas d’application sont présentés 
dans la seconde partie, au rythme d’un chapitre par cas : 
échéancier de remboursement, feuille d'impôt, gestion 


de copropriété, paye, facturation, tableau de bord... 
Chaque exemple sert à introduire de nouvelles ins- 
tructions ou astuces d'utilisation. 


176 pages - 82,00 FF / 635,00 FB 


P.S.I. DIFFUSION 
41-51, rue Jacquard 

BP 86 - 77402 Lagny-s/Marne Cedex He arbre à 
FRARCE P.S.L. DIFFUSION 
Téléphone (6) 007.59.31 où, pour la Belgique et 
P.S.I. BENELUX le Luxembourg, à 

5, avenue de la Ferme Rose P.S..BENELUX 

1180 Bruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 


Envoyer ce bon 


au Canada 


SCE inc. 
3449 rue Saint-Derss 8 es avenue de Beaumont 
Québec H 2X3 L 1 Far F24720 00 Fribourg 
Tél. (514) 843 76.63 Fa (037) 24.43 76 
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PROGRAMME 
PAOFESSIONNEL 


POUR 


TRS-80 


@'iogiciel et manuel français 
@Fracile d'emploi pour débutant 
@Ssaisie aidée par lordinateur 


D GENIUS 


Comptabilité générale 1000 comptes, 4000 écri- 
tures. Centralisation automatique et immédiate. 
Pas de tri. GENIUS vous apporte : Balance para- 
métrable, Compte d'exploitation générale, pertes et 
profits et BILAN à n'importe quel moment de la 
journée. GENIUS réalise seul les opérations de fin 
d'exercice. 


Rapport qualité/prix inégalé - Le Leader. 
Mod. 1 et 3 : 2350 F — Mod. 2 : 2850 F 


DINVENTER 


Excellente gestion des stocks pour 1500 à 5000 
articles. INVENTER c'est une facturation temps réel 
plus gestion des commandes fournisseurs, statis- 
tiques en valeur, en unités, en remises, et inventaire. 


Mod. 1 et 3 : 1500 F — Mod. 2 : 1800 F 
En version étendue à la tenue des comptes clients 


avec journal des ventes, sélection sur solvabilité 
des comptes, liste fichiers client : 


Mod. 1 et 3 : 2500 F — Mod. 2 : 3100 F 





e GESTCO gère un compte bancaire personnel, liste et trie les mouvements 
Mod. 1 et3:320F 
e GRAF transforme votre Lineprinter VI en table à dessin de 65536 points 
Mod. 1et3:330F 
e UTILDIR catalogue à votre place le contenu de 80 disquettes 
Mod. 1 : 320 F 

e ZLIST liste les programmes BASIC de facon structurée 
Mod. 1 : 210 F 
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TIOGICIELS Pei M.H. POSSARD — Tél. (56) 67.29.61 


TABANAC 33550 LANGOIRAN 


NOM 5 
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Ajouter 25 F pour le port ou 3 timbres si demande de documentation 
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Cette augmentation de mémoire 
permet à ce pocket des program- 
mes plus musclés. 


Entièrement compatible avec 
l'imprimante et l'interface K 7. 


Extension intégrée dans le boîtier. 
Modif. physique par nos soins 
exclusivement. 


Garantie 1 an. Reprise des 
garanties en cours. 


DETAILS COMPLEMENTAIRES 
APPORTES PAR LA MODIF. 
possibilités fichiers nettement améliorées, 
overlays plus importants. 

traitements optimisés beaucoup plus 
rapides 

utilisation possible de 2 magnétophones 
simultanés sans modification complé- 
mentaire. 
alimentation : 
batterie auto. | 
affichage et impression programmable 
(réglage du contraste). 

manuel d'utilisation en français, largement 
documenté. 






























piles / secteur / accus ou 


systèmes d'’entrées/sorties universels : 
connection vidéo, modem, carte secteur 
et mini synthétiseur 


retour de votre PC 1211 en Rec par 
nos soins. 


> 
Faites parvenir votre PC 1211 seul, avec votre règlement 
de 1500 F TTC en chèque (pas d'envoi contre remboursement) à : 


BE soubsof …- 


9, rue de Lalande 
33000 BORDEAUX Tél. (56) 91.55.08 | Joindre carte de 


| visite / adresse 
















nous faire cette réclamation... nous sommes prêts 
à envisager le fait qu'il puisse y avoir une in- 
compatibilité avec Les TRS récents (ce dont les 
lecteurs et possesseurs de ces modèles ne tarde- 
ront pas à nous informer si tel est le cas). 


Mais qu'est-ce qui ne fonctionne pas exactement 
7? 


--..vet ça n'existe pas. |! 


- Je dois vous signaler que le programme "générateur 
d'effets sonores" du numéro 4 ne tourne pas. En effet, 
à la ligne 25070, les instructions DEFUSR et CMD"T" 
n'existent pas en TRS niveau 2 (C. Laplagne, Rouen) 


* Soit, il est vrai que ces instructions n'exis- 
tent pas en niveau 2 mais le programme est jus- 
tement conçu de telle sorte qu'il puisse fonc- 
tionner en niveau 2 comme en BASIC disque et si 
si vous êtes effectivement en niveau 2, n'ayez 
aucune crainte ces deux instructions ne seront 
pas exécutées (ou bien, c'est que votre système 
fait un complexe de supériorité) ! 


APL-80 sur modèle 3 ? 


- Dans le trucs à brac du numéro 3 sous le titre 
MQuestion de pilotage", il faut compléter les modi- 
fications par celle-ci : remplacer "8D05" par "C203" 
dans le bloc de commande du driver imprimante (adres- 
ses 4026 et 4027). Moyennant quoi, il est possible de 
récupérer l'APL-80 du modèle 1 (cf article de Claude 
Nowakowski dans TRACE numéro 3) et de le faire fonc- 
tionner sur modèle 3. Et cela marche parfaitement ! 
(Louis Martin, Modane) 


* Merci pour ce complément d'information qui sera 
sûrement très utile aux possesseurs de modèle 3. 


Mini-assembleur ? 


- Possédant la version 1.0 (1981) de EDTASM pour mo- 
dèle 1, j'ai eu la désagréable surprise de ne pouvoir 
sauvegarder sur cassette des programmes sources supé- 
rieurs à 2K octets (ordre W). Dans le cas où le pro- 
gramme dépasse Les 2048 octets fatidiques, seuls les 
deux premiers K sont sauvegardés. Tandy Belgique étant 
resté muet à ma lettre de réclamation, si des lecteurs 


LACET: 10 


se sont heurtés à ce même problème et l'ont résolu, 
qu'ils mé le fassent savoir par le journal. Merci 
d'avance. (R. Eichaker, Rosny/Bois) 


* Quelqu'un a t-il déjà rencontré ce problème (ou 
bien n'y a t-il que R. Eichaker qui ait écrit 
des programmes sources de plus de 2K octets...!) 
Merci de nous tenir informé de vos expériences 
en ce domaine. 


Des fleurs... 


- Pour ma part, le retard de la parution s'efface de- 
vant le plaisir renouvelé à chaque page de pouvoir 
mieux utiliser mon TRS (Jean-Marie Laurent, Eloyes). 


* Voilà qui nous va droit au coeur, mais nous ne 
voyons pas de quel retard vous voulez parler...?! 


Adaptation 


- Voici une petite modification du programme "amélio- 
rez vos tracés de courbes" paru dans le numéro 4 de 
TRACE, destiné à ceux qui ne possèdent pas d'impri- 
mante graphique (Jean-Marie, Eloyes) 


* Merci pour ce complément d'information. Nous re- 
mercions aussi Monsieur René Le Gallic qui nous 
a transmis un programme visant le même but. 


0 
30 FOR 1=0 TO 14 : FOR J=0 TO 63 

520 IF PEEK(1S5360+1#44+1)>128 THEN LPRINT "#": ELSE 
LPRINT CHR$S(PEEK(15380+1x64+J)); 


I1 faut "zaper'" EDIT... 


- Je viens d'acheter FORTRAN pour le modèle 1, or 
l'éditeur ne marche ni sous NEWDOS 40, ni sous NEWDOS 
80. Y a-t-il des modifications à apporter ? (M. Slove, 
Le Vésinet) 


* Apparat propose effectivement un "zap" qui de- 
vrait règler ce problème et que nous reportons 
ci-dessous 


EDIT/CMD:327A2 

était : 18 E6 7F C2 28072 78 ÉE 

devient : 78 D£ O1 30 08 18 04 EE 

EDIT/CMD;38,E8 

était : 7E Eé 7F 7E 21 FE FF CA 58 78 EE 80 87 DA 5D 78 
devient : 7E 60 49 Dé D1 3D 01 28 29 07 30 01 23 18 O4 78 


»- 


(C1) 1237:N 8 


(mod. let Ill) 


EDIT 


e Editeur Plein Ecran 

e Pour écrire facilement vos programmes BASIC 

e Les fonctionnalités du traitement de texte adap- 
tées à l'édition de programmes 

e EDIT sur disquette inclus une version DOS overlay 
n'utilisant que 160 octets (sous TRSDOS, LDOS, 
Smal-LDOS) 

EDIT (disque) … 

EDIT (K7, 16K L2) 


.… 299 F TIC 
230 (ETC 


Smal-LDOS 
* 


DRIVES 
CLAVIER double face/ ee IMPRIMANTE 


35 à 80 pistes 

e Pour disposer d'un système d'exploitation puis- 
sant et sophistiqué mais simple à utiliser 

e Regroupe les commandes les plus intéressantes 

du LDOS (Manuel en anglais) 

EXCEPTIONNEL …. 750 F TTC 


VENTE PAR CORRESPONDANCE 


EXCEUSIVEMENT 
ndeur 531.49 26 


19, bd Montmartre 


(Cl TN Te) 2 ANNE 


SEEN ARE 


FRA=IT )ACCEL 3/4) AY + 
PRINT C _. de 
IF 1= 5 GOTO 28  )ACCEL 3/8 


e Compilateur BASIC et DISK BASIC 

e Exécution de vos programmes jusqu'à 35 fois 
plus rapide 

e ACCEL 4 est une version d'ACCEL 3 utilisant 
l'overlay afin de n'occuper que 160 octets de la 
mémoire disponible (ne fonctionne que sous 
TRSDOS, LDOS et Smal-LDOS) 

e La disquette ACCEL 3/4 inclus également AC- 
CEL 3 qui est compatible tous DOS. 

ACCEL 3/4 (disque) 

ACCEL 3 (K7, 16K L2) … 


… 690 F TTC 
… 650 F TTC 
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Bricolons un peu ! 


- Au sujet des modifications que vous proposez de 

faire sur le TRS-80, fer à souder en main, ne pour- 
riez-vous les adapter aux derniers modèles fabriques 
au Japon ? Sur ceux-ci, la disposition des éléments 
est différente... (Jean-Marc Duro, Sierck-les-Bains) 


* Bien que nous ne soyons pas en possession des 

schémas de ces nouveaux modèles, il faut toutefois 
comprendre une chose : nous ne pouvons pas publier 
(faute de place et de temps) les adaptations possi- 


bles sur les différentes versions de TRS modèle 1 
(il y en a maintenan c. 
ter le Vidéo-Génie, 
vons nous contenter de do 
pe mis au point sur un m 
lecteur le soin de faire lui 
nécessaires sur son matériel. vons aussi sou- 
ligner que les "bricolages" publions s'a- 
dressent aux "bricoleurs" ay ques connais- 
sancés en électronique et 
de besoin. Cela sous-enten doivent être en 
possession des schémas de 


riel s'ils ne 
veulent pas s'exposer à certains risques ! 






c 


; Sans comp- 
80. Nous de- 
de princi- 
en laissant au 
les adaptations 
de 












a 


mproviser en cas 





errata 


Dans l'article "Les graphiques du TRS" (partie 2) de 
Frédéric Mora, en page 41 du numéro 4 de TRACE, une 
routine assembleur a été légèrement amputée (colonne 
de droite)... Nous prions l'auteur et les lecteurs 
de nous en excuser. Voici cette routine : 


200 RESECR EXX 


210 EX AF,AF' 
220 LD DE,.15360 
230 LD HL, 31743 
240 LD BC, 1024 
250 LDIR 

260 EXX 

270 EX AF,AF! 
280 RET 


ME.R, MODULE D'ETUDES ET DE REALISATIONS 


SSSR 


MER 


LURNRRRRR NY 


Régis PIDOUX 

B,P. n° 2 

56470 St PHILIBERT 

Pour TRS 80 Modèle 1 : 

Générateur APL compatible APL 80 .......200 
Générateur Modéle 3 .................4.4.. 300 
Générateur minuscules accentuées pour 
Scripsit avec pateh sur disque............350 
Séparateur de Données simple densité 
fiabilise considérablement les entrées 
sorties disque s.ssessosensseseeseese ee 200 


Pour TRS 80 Modèle 3 : 

Mod 3 azerty: Générateur minuscules 
accentuées pour Scripsit avec patches 

sur disque Demos eee sels se ceseles OU) 
Mod 3 qwerty: Générateur minuscules 
accentuées pour SuperScripsit avec 

patches sur disque Scene vesscrssmsseeseOUU 


Pour l'Enseignement et les Clubs : 
Répartiteur Parallèle connecte jusqu'à 

4 micros sur une imprimante parallèle 
sélection logicielle à partir du BASIC 

ou Langage machine ................4..0 1700 
(cables en sus 


NOTA Les générateurs pour modéle 1 et le 
séparateur de données nécessitent soudure 
et coupures de piste (suivant moëèles) 
TRS 80 EST une Marque Déposée par TANDY corp 
Prix Hors TVA Réglement à le commande 
M.B.R. MODULE D'ETUDES ET DE REALISATIONS E 
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Page 43 du même article, la ligne 40 du programme BA- 
SIC doit sé lire : FOR I-0 TO 35 (au lieu de 37). 
Quant à la ligne 80 (colonne de droite), la valeur 

A1 est : A1 = A-256*A0 (au lieu de A1 = A=256*A0). 


Du même auteur (mais non, nous ne lui en voulons pas 
!) et dans le même numéro, la routine de conversion 
hexa/déci “de "Côté court" a été omise. Reportez-vous 
à la rubrique du présent numéro pour un complément 
d'information (si vous ne la trouvez pas, c'est qu'il 
s'agit sûrement d'un nouvel oubli...). 


Les "Patches and Zaps'" du numéro 4 (sauf en ce qui 
concerne le compilateur BASIC) nous ont été communi- 
qués par Roger Buvat. 


Une correction nous est transmise par l'auteur du 
programme “tracé de courbes" du numéro 4 (page 32) 
pour améliorer la présentation de l'échelle vertica- 
le. En ligne 330, remplacer "8-LEN(Y$)" par "9-LEN 
(Y$)". 


Roger Buvat, auteur du programme de tri paru dans le 
numéro 3 nous signale un problème intervenant lors 
du tri d'éléments de longueurs inégales. Voici les 
corrections à apporter : 


- Dans le programme en assembleur, supprimer les li- 
gnes 800 à 830 et 910. Remplacer la ligne 920 par : 


00920 JR NZ,TEST ; Si E$(J+H) < > E$(J) 
Insérer les lignes suivantes : 

00921 DEC C ; * si longueur variable 
00922 JR Z,TEST ; * si longueur variable 
00951 SCF ; * si longueur variable 


00952 TEST NOP 
00953 JR NC,PERMUT 


; ou CCF si tri inversé 


103 
*2D 


Sevres seseseeneseeseseeeeseseesseseeseseseseces 





La société Graphie a déposé son bilan. Cette nouvelle 
est triste pour deux raisons principales : cette so- 
ciété, qui avait pris naissance à un moment où les 
utilisateurs de TRS avaient justement besoin de sup- 
ports, de conseils, d'informations et de matériels 
que l'on ne trouvait alors qu'aux USA, avait apporté 
par sa présence un service réel et apprécié de tous. 
Ce service leur est retiré aujourd'hui et cela, c'est 
toujours triste. La seconde tristesse, c'est que de 
nombreux utilisateurs ayant placé toute leur confian- 
ce dans cette société, n'ont pas hésité à passer com- 
mande de matériels dont ils n'étaient même pas sûrs 
de l'existence ou de la disponibilité. Quelques jours 
même avant la "fermeture des portes, GRAPHIE conti- 
nuait toujours à accepter des commandes... Aujourda! 
hui, et après de nombreuses et vaines réclamations, 
les clients ne peuvent obtenir lé remboursement des 
sommes versées et ne doivent malheureusement conser- 
ver que peu d'espoir de l'obtenir un jour. De nom- 
breux lecteurs dans ce cas nous ont écrit pour nous 
faire part de leurs malheurs et nous demander conseil. 
Nous ne pouvons que leur recommander pour le principe 
de déposer une plainte contre cette société, tout en 
regrettant que de tels incidents atteignent durement 
l'ensemble de la corporation : clients, fournisseurs, 
etc... 


GRETA SUD-LOIRE organise des stages de formation con- 
tinue en micro-informatique portant sur les thèmes 
suivants : sensibilisation à l'informatique (24 h), 
initiation au langage BASIC (48 h}), perfectionnement 
en BASIC (48 h). Les inscriptions peuvent se faire 
dans le cadre de la loi sur la formation continue ou 
à titre individuel. 


Le 12 novembre 1982 a été signé à Paris un contrat 

de distribution pour la France, l'Espagne et le Por- 
tugal entre Sivéa Informatique et la société améri- 
caine Microsoft. Ce contrat concerne la distribution 
par Sivéa des produits Microsoft pour Apple 2, IBM 
PC et tout ordinateur disposant de CP/M-80 : Compila- 
teurs FORTRAN, COBOL, BASIC, macro-assembleur Z-80, 
muMATH/muSIMP, etc... 


IDEM importe maintenant les cartes graphiques 80- 
GRAFIX+ pour les TRS modèles 1 et 3 (1590 F ttc) et 
GRAFIX SOLUTION pour le modèle 3 uniquement (3290 F 
ttc). Alors que la première permet à l'utilisateur 

de définir 128 caractères supplémentaires quelconques 
(programmables), la seconde offre la haute résolution 
en noir et blanc : 512 x 192 points et autorise un 
affichage de 80 caractères par ligne. 


Tandy comble le trou entre les modèles 2 et 16 avec 
le modèle 12 qui devrait apparaître bientôt sur le 
marché français. Compatible avec le TRSDOS du modèle 
2, la mémoire centrale du nouveau modèle serait por- 
tée à 80 k octets, le clavier comprendrait des tou- 
ches de fonctions programmables et on disposerait de 
6 connecteurs d'extension au lieu de 4. Option 

carte graphique haute résolution 640 x 240. 








PETITE ANNONCE 


Je voudrais vous parler d'un produit qui n'e- 
xiste pas encore officiellement... mais qui ne 
demande qu'à l'être. Il s'agit d'un vieux rêve 
qui s'est réalisé : la haute résolution couleur 
sur modèle 1, modèle 3 ou Vidéo-Génie ! Le TRS- 
80 est plein de qualités comme vous le savez, 
mais l'un des principaux reproches que l'on 
peut lui adresser face à ses concurrents est 

Sa Carence en graphiques (128 x 48) et en cou- 
leurs (2). Le dispositif qui est raccordé ac- 
tuellement sur mon vieux modèle 1 lui apporte 
une résolution de 320 x 250 (80.000 points) en 
huit couleurs (ou teintes dégradées de gris 

sur un écran noir et blanc) et ces effets gra- 
phiques sont visibles sur l'écran noir et blanc 
du TRS en SUPERPOSITION avec les graphismes et 
textes standards. Optionellement, on peut rac- 
corder un téléviseur muni d'un prise Péritel 
sur le dispositif pour obtenir alors la même 
image que sur l'écran de base mais avec huit 
vraies couleurs. La carte HRC (haute résolu- 
tion couleur) se branche sur le connecteur BUS 
de l'ordinateur et le câble du moniteur vidéo 
transite par cette carte. Ce raccordement ne 
nécessite aucune modification du matériel. Il 
réclame seulement une alimentation extérieure 

5 V. La carte HRC d'une taille de 140 x 180 mm 
possède une mémoire autonome de 64 K octets qui 
peut contenir deux pages en haute résolution 
utilisables pour des effets d'animation. De 
plus, cette carte possède un mode TEXTE acces- 
sible par logiciel et autorisant les attributs 
visuels (inversion vidéo, soulignement, cligno- 
tement) et la programmation de 4 générateurs de 
caractères simultanés... Dans l'état actuel des 
choses, un logiciel d'extension du BASIC existe 
et fournit le minimum d'instructions graphiques 
nécessaires : HPLOT, HCOLOR, HPAGE, HCLS, HDISP, 
HGET, HPUT et cela permet déjà de faire beaucoup 
de choses comme par exemple reproduire (et sans 
contraintes) sur un modèle 1 les beaux dessins 
que l'on obtient sur un TRS couleur ou un Apple. 
Un circuit imprimé et une documentation de la 
carte HRC existent déjà mais son concepteur n'a 
ni le temps ni les structures pour envisager sa 
fabrication et sa commercialisation à grande 
échelle. Une étude de prix a révélé que cette 
interface ne devrait pas dépasser un prix de 
vente de 2000 F ttc et il reste à trouver une 
société qui veuille bien prendre cette réali- 
sation en charge. Si vous pensez être cette so- 
ciété, contactez-moi au plus vite en écrivant 
au journal qui transmettra. (N'oubliez pas la 
référence PA-TR5) 


PA — TR5 

c/o TRACE 

8 rue Saint-Marc 
75002 = PARIS 
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mesdames 


Microsoft annonce XENIX sur le modèle 16. Par addi- 
tion d'un ou deux terminaux peu coûteux, le modèle 

16 équipé de XENIX offre aux utilisateurs la possi- 
bilité de travailler simultanément sur la même machi- 
ne. Développé par Microsoft, XENIX est dérivé du sys- 
tème d'exploitation UNIX et possède des caractéristi- 
ques très sophistiquées telles que : répertoire en 
arbre, entrées/sorties logiques indépendantes des pé- 
riphériques, chaînage de programmes, mode "foreground' 
et "background", multi-utilisateurs, multi-taches... 
Tandy annonce qu'aux Etats-Unis et pendant le premier 
trimestre 83, le système d'exploitation XENIX sera 
offert à tous les possesseurs du modèle 16 et sera 
intégré dans la production des modèles 16 à venir. 
Pour accepter ce DOS, le TRS doit actuellement être 
équipé de 256 K octets de mémoire et d'un disque dur 
en attendant la fin du premier semestre 83 ou Radio 
Shack doit sortir la première version de XENIX sur 
disque souple (mono-utilisateur). 


La société bordelaise BOUTISOFT annonce une innova- 
tion technique particulièrement importante pour le 
PC 1211 : une carte d'interface 12 K RAM intégrée 
dans le boîtier du poquette. Cette extension conser- 
ve la compatibilité avec tous les programmes exis- 
tants et offre des possibilités complémentaires d'a- 
daptation de nouveaux périphériques : modem, inter- 


essai logiciel 





faces série, vidéo, parallèle. Son nom : SHARM, son 
prix : 1500 F ttc (montage compris). 


Le nouveau catalogue 83 Tandy est arrivé ! Mise à 
part les produits récents dont nous vous avions déjà 
parlés (modèle 16, disque dur, poquette PC2), deux 
points méritent d'être soulignés après sa lecture. 
D'abord, le modèle 1, bien que n'étant plus vendu, 
est toujours présent par ses accessoires qui eux res- 
tent au catalogue : interface d'extension, générateur 
de caractères accentués, kit d'installation des mi- 
nuscules, etc... De plus, la gamme des imprimantes a 
été largement modifiée (mise à part la Marguerite et 
la Line Printer V) avec l'apparition de nouveaux mo- 
dèles : DMP 100, 200, 400, CGP (testée dans TRACE nu- 
méro 4). Par contre, certains modèles comme la Line 
Printer VIII par exemple, ne semblent plus exister. 
(GRETA SUD-LOTRE, Lycée Jean Perrin, H4UOO REZ LES 
NANTES, tél : 16 (4O) 75.93.94) 

(SIVEA Paris, 31 bd des Batignolles, 75008 PARIS) 
(IDEM, 34 bis rue Sorbier, 75020 PARIS) 


(Tandy France, 211-213 bd Mac Donald, 75019 PARIS) 


F.D.S. Relations Presse Microsoft, 10 rue Henri Pape, 
75013 PARIS, tél : 588.76.53.) 


(BOUTISOFT, 9 rue de Lalande, 33000 BORDEAUX) 











EDIT, 
un éditeur pleine page 





Nous vous présentons aujourd'hui trois logiciels im- 
portants : deux sont conçus par la société anglaise 
Southern Software et ils ont remporté un vif succès 
aux Etats-Unis (il faut le faire !). Ils sont aujour- 
d'hui disponibles en France (vente par correspondan- 
ce exclusivement) auprès de la société Général Soft- 
ware (19 bd Montmartre, 75002 PARIS) qui les accompa- 
gne d'une documentation complète et en français. Le 
troisième est un langage : Pascal-80 représenté en 
France par la société IDEM (34 rue Sorbier, 75020 
PARIS) et que nous avons trouvé particulièrement sé- 
duisant dans sa nouvelle version. 


Nom : EDIT 

Classe : éditeur BASIC pleine page 
Matériels : modèles 1 et 3, Vidéo-Génie 
Prix : 230 F (cassette), 299 F (disquette) 


Vous connaîissez BASIC et sa commande EDIT et il vous 
prend souvent de penser que sur une autre planète... 
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vous pourriez écrire et modifier facilement vos pro- 
grammes BASIC à la façon de l'éditeur de texte Scrip- 
sit. Ce rêve est devenu une réalité avec le program- 
me EDIT crée par la société anglaise Southern Soft- 
ware. On s'étonne d'ailleurs, parmi la quantité énor- 
me de logiciels disponibles sur TRS, que cet utili- 
taire n'ait pas vu le jour plus tôt. La procédure 
d'appel est simple : on charge d'abord le programme 
EDIT (langage machine) puis on travaille normalement 
en BASIC avec la différence que l'éditeur est invoqué 
par la frappe de la commande "/EDIT" au lieu du "EDIT" 
habituel. Dès cet instant, le programme qui était 
chargé en mémoire peut être modifié ou complété selon 
le mode dit "pleine page", c'est-à-dire à l'aide d'un 
curseur clignotant que l'on peut déplacer dans tout 
le programme par les 4 flèches de direction. Lorsqu' 
on atteint le bas de l'écran, le texte remonte auto- 
matiquement vers le haut à la manière d'un film pas- 
sant devant une fenêtre de vision. Les commandes se- 
sont précédées de BREAK ou de "@", cette 
comportant comme une touche de contrôle 





(façon Scripsit). Pour‘valider la modification, on 
utilise tout naturellement ENTER alors que CLEAR an- 
nule les ordres entrés depuis le dernier ENTER. Tou- 
te ligne modifiée sera accompagnée d'un signe graphi- 
que à droite de l'écran indiquant une altération de 
Célle-ci. Les possibilités d'édition sont plus que 
satisfaisantes puisqu'il est possible : de supprimer, 
d'insérer, de déplacer ou de recopier un caractère, 
une ligne ou un bloc de lignes ; de rechercher la 
présence d'une chaîne de caractères et éventuellement 
d'y substituer une autre chaîne (pas nécessairement 
de la même longueur) ; enfin — et ces deux fonctions 
sont très utiles - de créer deux lignes à partir d'une 
ligne contenant deux ou plusieurs commandes (séparées 
par le signe ":") ou inversement de réunir deux li- 
gnes en une seule. Mais l'édition ne porte pas uni- 
quement sur le contenu des lignes de programmes : il 


essai logiciel 





est aussi possible de modifier individuellement cha- 
Afin de réduire l'espace mémoire occupé par l'éditeur 
(un peu plus de 3 K octets), on trouve aussi sur la 
disquette (valable dans cette version uniquement) un 
EDIT "overlay" qui laisse libre la mémoire utilisa- 
teur. Un seul inconvénient : il ne fonctionne que 
sous TRSDOS et LDOS (ainsi que "small-LDOS") contrai- 
rement à la version standard qui n'a pas cet inconvé- 
nient et s'adapte à toutes les configurations de sys- 
tèmes d'exploitation et de mémoire (16 à 48 K). Un 
dernier mot : le manuel d'accompagnement (11 pages) 
est en français ! 


Nos conclusions : un excellent outil pour rendre la 
vie bien plus facile et qu'on adopte dès qu'on l'es- 
saye ! 


——————————— oo 








ACCEL 3, 


pour accélérer vos 
programmes 





Nom : ACCEL3/4 

Classe : compilateur BASIC 

Matériels : modèles 1 et 3, Vidéo-Génie 
Prix : 690 F (ACCEL3/4 disquette), 

650 F (ACCEL3 casette) 


Ce compilateur "mini" par son prix et sa taille mé- 
moire offre de "maxi" services à ceux qui, déplorant 
la lenteur de l'interprèteur BASIC recherchent des 
programmes plus performants pourvu que cela ne leur 
complique pas trop la vie ! Avec ACCEL3, ce but a été 
atteint et ce sont surtout les utilisateurs de confi- 
&gurations à cassette qui vous le diront car pour eux, 
les compilateurs classiques (toujours sur disquette) 
se trouvaient hors de leur portée. ACCEL existe en 
deux versions : ACCEL3 (cassette ou disquette, utili- 
sable dans toutes les configurations 16 à 48 K) qui 
occupe moins de 6 K octets de mémoire et ACCELA qui 
est la version "overlay" (disquette uniquement) qui 
laisse libre la quasi totalité de la zone mémoire 
utilisateur. Attention :° cette dernière ne fonctionne 
que sous TRSDOS et LDOS (ou small-LDOS). La mise en 
oeuvre du compilateur ACCEL3/4 est on ne peut plus 
simple : une fois que celui-ci est chargé (langage 
machine), on utilise BASIC comme par le passé en écri- 
vant ou en appelant en mémoire de la cassette ou la 
disquette le programme de son choix. Lorsqu'on estime 
que ce dernier est "au point" et fonctionne correc- 
tement, il est nécessaire de le sauver sous cette 
forme avant d'appeler le compilateur (en cas de modi- 
fications ultérieures). On frappe ensuite : "/FIX" 
qui lance la compilation qui s'exécute en quelques 
secondes ou fractions de seconde selon la taille du 
programme source. En LISTant le programme 6n a alors 
la surprise de constater qu'il se trouve réduit à 


quelques lignes... On peut alors le sauver sous cette 
forme par la commande habituelle CSAVE (ou SAVE avec 
disquette). Attention : Pour utiliser de nouveau ce 
programme, il sera nécessaire qu'ACCEL3 soit en mé- 
moire. Une autre surprise nous attend lorsque l'on 
frappe la commande RUN : la vitesse d'exécution se 
trouve multipliée par un facteur qui varie selon les 
instructions et fonctions employées. Prenons un exem- 
pre: 


10 DEFINT X,Y 

20 A$=TIMES ’ temps départ (version disquette) 
HO FOR Y=0 TO 47 

50 FOR X=0 TO 127 : SET (X,Y) : NEXT 

60 NEXT 

70 PRINT A$,TIME$ ‘ affichage départ, arrivée 


En interprété l'écart est de 42" alors qu'après com- 

pilation il passe à 5". Une boucle entière de 0 à 
10000 prend 2 secondes une fois compilée avec ACCEL31! 

Bien sûr, il n'en est pas de même avec toutes les ins- 
tructions et certaines n' apportent que peu de change- 

ment mais en moyenne, il s'avère que le gain de temps 

est toujours très positif. Un autre élément interes- 

sant d'ACCEL3/4 est la possibilité d'inhiber la com- 

Pilation sur certaines portions de programmes (ins- 

tructions non-standards par exemple) par les comman- 

des NOEXPR et EXPR qu'il suffit de placer en commen- 

taires aux endroits à laisser intacts. Enfin, si vous 
destinez certains programmes à la vente, ils peuvent 

être compilés avec ACCEL3 à condition que cela soit 

stipulé dans la documentation, et sans qu'il soit né- 
céssaire de verser des droits à Southern Software. 

En conclusion : un compilateur très souple, facile à 

utiliser en version cassette ou disquette et qui don- 

nera du "punch" à tous vos programmes BASIC ! | 


——————————_—_————————————EEEEEE 
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essai logiciel 





Pascal 80 





Nom : Pascal-80 

Classe : langage 

Matériel : modèles 1 et 3, Vidéo-Génie 
Prix : 1190 F (disquette) 


Vous possédez une disquette et vous voulez parler un 
autre langage que BASIC ? Cette nouvelle version de 
Pascal-80 est probablement la plus intéressante et 
la plus performante actuellement sur le marché. 


Ce logiciel crée par Phelps Gates (auteur également 
de l'excellent APL-80) est apparu sur le marché amé- 
ricain début 81. C'était alors le seul produit offrant 
aux utilisateurs du modèle 1 la possibilité de prati- 
quer le langage Pascal sous une forme assez proche 

de la version standard. Cette première version quoi- 
qu'interessante, possédait un certain nombre de lacu- 
nes ou d'inconvénients qui pouvait en limiter son em- 
ploi, à savoir par exemple : utilisation sous TRSDOS 
ou NEWDOS+ uniquement, limitations de l'éditeur, pas 
de possibilités graphiques, impression des listes peu 
facile, notice extrêmement rudimentaire. Il1 possédait 
par contre dès le départ les avantages suivants par 
rapport au Pascal UCSD (seul concurrent à l'époque) : 
grande facilité d'emploi, très bonne interactivité 
entre les différents modules constitutifs (éditeur, 
compilateur, exécuteur, moniteur), prix très attrac- 
tif (100 $ aux USA). La distribution du Pascal-80 a 
été reprise dès le début 82 par la société New Clas- 
sics Software qui y a apporté de nombreuses correc- 
tions et améliorations, amenant ce logiciel dans sa 
dernière version (révision 1) à des caractéristiques 
très proches de la version du Pascal standard. C'est 
de celle-ci dont il va être question maintenant. 

Le module "PASCAL/CMD" (19 granules sur disquette) 

se charge entièrement en mémoire (pas d'overlay) et 
les 4 sous-modules qui le constituent sont à tout 
moment accessibles à l'utilisateur : l'éditeur (frap- 
pe et correction du texte source), le compilateur 
(transforme le texte source en code intermédiaire 
(P-code), l'exécuteur (exécution du P-code à partir 
de la mémoire ou de la disquette) et le moniteur. Ce 
dernier sert de "superviseur" aux fonctions précéden- 
tes ainsi qu'aux échanges entrées/sorties suivantes : 
chargement en mémoire du programme source et sauve- 
garde sur disquette du source et du P-code, fusion 

de deux programmes source. Une amélioration majeure 

a été apportée par rapport à la première version, 
c'est la possibilité d'exécuter le Pascal sous tous 
les DOS connus, le faisant bénéficier notamment de 

la double densité. Pour améliorer la transportabilité 
(le P-code du Pascal-80 n'est pas standard), un uti- 
litaire est fourni sur la disquette pour convertir 
lès programmes source (comprimés pour des raisons 
d'économie de place) en format ASCII et inversement. 
Ainsi par exemple, rien n'empêche le source Pascal 
d'être composé ou lu par Scripsit. Une autre amélio- 
ration significative de cette nouvelle version est 

la possibilité donnée par deux utilitaires de créer 
un module autonome du programme compilé, exécutable 
directement sous DOS (format /CMD) et qui est obte- 
nue par l'adjonction au programme objet de l'exécu- 
teur de P-code du Pascal-80. I1 ne s'agit donc pas 

de la production directe d'un code au format "langa- 
ge machine". 

Par rapport au Pascal standard, on constate quelques 
limitations comme : absence d'enregistrements varia- 
bles ; absence de WITH...D0, de GET et PUT, de 





et UNPACK, de l'instruction PAGE, des structures de 
fichiers ARRAY OF FILE ; les procédures et fonctions 
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ne peuvent être passées comme paramètres d'autres 
fonctions ou procédure ; un ensemble (SET) ne peut 
avoir plus de 256 éléments constitutifs ; pas de va- 


. riables locales. Par contre, les extensions au stan- 


dard sont nombreuses et fort interessantes : la struc- 
ture ARRAY OF CHARACTER peut être imprimée avec une 
seule instruction ; en plus du type REAL qui donne 

14 chiffres significatifs, Pascal-80 offre un REAL6 
(précision de 6 digits) qui permet une économie de 
mémoire et de temps dans certains cas; de même, les 
déclarations SP et DP (simple et double précisions) 
permettent d'influer sur la rapidité des calculs (30 
%) ; l'instruction CASE est étendue pour inclure une 
clause ELSE dans l'hypothèse ou aucun des "cas! n'est 
détecté ; les fonctions et procédures internes sui- 
vantes sont reconnues : CHR$ (identique au BASIC), 
PSET, PRESET, POINT (identiques aux SET, RESET, POINT 
du BASIC), GOTOXY (identique au PRINT@), CLS, PEEK 

et POKE, RND et RNDR (RND et RANDOM du BASIC), INKEY 
(id INKEY$), CALL (appel de sous-programme en langa- 
ge machine avec passage de paramètre), MEM (id BASIC), 
FP (partie fractionnaire d'un réel), EX (exposant d'un 
réel), PI (le nombre pi), SEEK (positionnement poin- 
teur dans un fichier), NEW, NIL, MARK, DISPOSE (uti- 
lisation de variables "pointeurs" permettant la réal- 
location dynamique de la mémoire). Bien entendu, tou- 
tes les fonctions mathématiques connues du BASIC sont 
présentes ici mais avec 11 chiffres significatifs ! 
La directive INCLUDE constitue également le point fort 
du Pascal-80 : elle permet à l'utilisateur de définir 
sur disque sa propre bibliothèque de procédures ex- 
ternes qu'il pourra intégrer à son programme au mo- 
ment de la compilation. Un programme entier peut aus- 
si être appelé par ce moyen. 


Notre essai du Pascal-80 n'a pas révélé de points 
faibles majeurs du logiciel. Il peut toutefois être 
signalé que les utilisateurs de modèles 1 anciens 
pourront rencontrer un problème avec la touche "con- 
trol" de l'éditeur (SHIFT flèche basse) qui provoque 
un interligne gênant lorsqu'elle est exécutée. Nous 
avons signalé ce point au distributeur en lui propo- 
sant une modification simple qui corrige ce défaut. 


Sur la disquette Pascal-80, on trouve deux programmes 
de démonstration au format source : une gestion d'a- 
dresses et un programme qui dresse la courbe de Gauss 
d'un tirage à pile ou face. Ce dernier qui utilise 
des graphiques, donne une bonne idée de la supériori- 
té en vitesse du Pascal par rapport à l'interpréteur 
BASIC. 

La documentation, complète mais en anglais, est con- 
tenue dans un petit classeur de 72 pages et inclut 

un index détaillé. C'est une amélioration importante 
par rapport aux versions précédentes ! 


Pour conclure, nous dirons que Pascal-80 est un ex- 
cellent logiciel tant du point de vue de l'apprentis- 
sage du langage que de son utilisation pour des appli- 
cations courantes en raison des améliorations pério- 
diques apportées au produit et qui l'ont conduit à 

un stade très proche du Pascal standard (dépassé même, 
parfois). Ses points forts sont certainement la gran- 
de facilité de mise en oeuvre et le très bon niveau 
d'interactivité qu'il offre, associés à un prix rai- 
sonnable même en France... Sa vitesse d'exécution 
n'est certes pas comparable à celle d'un compilateur 
produisant du code machine Z-80 mais c'est un compro- 
mis tout-à-fait acceptable devant les avantages qu'il 
présente. 





Rémi Pile 





| 


programmes 





Côté court 





CONVERSION HEXA-DECI UN OUBLI... 


La routine de conversion hexa/déci due à Frédéric 
Mora et dont nous parlions dans le numéro précédent 
de TRACE était si courte que nous l'avons oubliée... 
La voici donc 


1000 N9=0 : FOR 19=1 TO LENCA$) : 195=MID$(A$:191) 


IF 19$>"a” THEN J19=ASC(19#)-55 ELSE J9=ASC(19#$)-48 
1010 NS=NS#16+J9 : 


NEXT : RETURN 





Entre temps, Denis Schneider a relevé le défi de Fré- 
déric Mora en nous envoyant la routine suivante (1i- 
gne 100) qui n'occupe que 79 octets ! La voici, ac- 
compagnée du programme d'utilisation : 


Alors ? Qui pourra encore faire mieux ? 


Nota : si l'on désire faire la conversion à partir 


d'une base différente de 16, il suffit de remplacer 
la valeur 16 de la ligne 100 par la base choisie. 


1 * PROGRAMME HEXA --} DECI *## NO 3 xxx 
10 INPUT"hexa":A$ 

20 GOSUB 100 

30 PRINT "=":N 


40 GOTO 10 
100 N=0:FORN1=OTOLEN(A$)-1:N2=ASC(MIDS(AS>LEN(AS)-NAr1)): 
N=EN+(N2+(N2264)#7-48)#169N1:NEXTN1:RETURN 





Voici maintenant une routine qui permet la conversion 
d'un nombre N en base 10 vers un nombre en base B (re- 
sultat dans A$). Attention : la variable À est utili- 
sée ! 


32000 A$="" 
32001 A=N-INTIN/B)XB : AS$=CHRS(A+48-(A+48>57)x7)+0$: 


IF N€>0 THEN 32001 ELSE RETURN 


N=INT(N/B): 





Denis Schneider 














C'EST LA MEILLEURE ! 


10 CLS 
20 PRINT "JE SUIS LE MEILLEUR" 
30 RUN 


Je vous demande tout d'abord de m'excuser pour le 
contenu du message mais c'est tout ce que j'ai trou- 
vé pour qu'il y ait les bonnes lettres et les bons 
espaces aux bons endroits ainsi que le bon nombre de 
lettres ! En lançant ce petit programme (qui aurait 
pu être dans "côté court"), croyez-vous que le texte 
va clignoter ? Exact : il va scintiller, mais ce n'est 
pas tout... Vous souhaitez qu'il soit un peu plus ra- 
pide ? Alors enlevez le dernier guillement de la li- 
gne 20 ! Vous voulez voir les mêmes opérations se dé- 
rouler mais en sens inverse ? Remplacez alors les es- 
paces par À, R et G (tant pis pour la compréhension) ! 
Vous faut-il encore une preuve pour vous démontrer 
qu'un ordinateur n'en fait qu'à sa tête, quand il 
iveut ? Alors écrivez "JE SUIS LA MEILLEURE". Et ai; 

| sceptique, vous souhaitez de nouveau inverser les 


opérations, frappez : "ELLE EST LA MEILLEURE"... 


Bizarre, bizarre... 


Maurice Lhomme 


Il est possible de protéger son PC-1500 ou PC2 contre 
un éventuel intrus 


1) passez en mode PRO 

2) tapez : 1 ARUN CALL &CD71 
3) passez en mode RUN 

U) éteignez votre machine 

5) essayez de la rallumer. Problème ? 


enter 


Ce truc n'aurait aucune utilité s'il n'était impossi- 
ble de reprendre le contrôle de la machine ! Pour ce- 
la, gardez le doigt sur la touche ON durant quelques 
secondes (mais... chut !). Nota : ne fonctionne qu'en 
mode RUN. 


Daniel Glazman 
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mathématiques 





Déformation : 


du coq a à l'âne Fi 





Avec le programme ci-dessous, je vous propose de dé- 
former un objet en un autre, ou plus précisemment de 
déformer son contour en celui de l'autre objet. 


A l'origine, ce programme utilise la commande PLOT 
d'une extension BASIC appelée ENHBAS, qui permet de 
tracer rapidement et graphiquement un segment de droi- 
te défini par ses deux extrémités. Néanmoins, et étant 
donné que cet utilitaire n'est pas connu de tous les 
lecteurs, nous utiliserons une routine en langage ma- 
chine réalisant la même fonction (tirée du livre "La 
pratique du TRS-80", volume 2, éditions du PSI). Elle 
utilise un procédé de relogement automatique qui con- 
viendra aux trois configurations mémoire possibles : 
16, 32 et 48 K. 





Le programme "DEFORME" étant lancé, vous avez le choix 
entre 1) des motifs préprogrammés ou 2) des motifs 
introduits par leurs coordonnées (lignes 1170 - 1260). 
Si vous choisissez de répondre "1", vous avez plu- 
sieurs possibilités : déformer une croix en un ovale, 
une faucille en marteau (!), une maison en un bateau 
ou un triangle en un autre triangle (lignes 1270 - 
1380). Là, c'est affaire de goût ! Un instant plus 
tard, le temps de lire les coordonnées des points dé- 
finissant les motifs (lignes 1390 - 1540), les deux 
dessins sont tracés. Leurs contours sont constitués 

de segments de droites formant une courbe fermée 

c'est essentiel pour la méthode utilisée. Face aux 
deux dessins, vous avez différentes façons de pour- 
suivre : 
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1 - entrez un chiffre de 1 à 9 donnant le nombre de 
déformations successives d'un objet à l'autre que 
vous désirez voir à l'écran. Compte tenu de la réso- 
lution du TRS, ce nombre est limité à 9. Plus il est 
grand, plus les déformations sont progressives mais 
avec 9, vous pourrez trouver les dessins trop rappro- 
chés... Alors : 


2 - appuyez sur la barre d'espace. Dans ce cas, les 
différentes déformations seront affichées l'une après 
l'autre, avec effaçage de la déformation précédente. 
Vous pouvez revenir au mode 1 et changer le nombre 

de déformations en frappant une nouvelle fois cette 
touche. Mais peut-être êtes vous lassé des motifs 
choisis ? Alors... 


3 - appuyez sur la touche CLEAR pour revenir au menu 
du départ." Dans tous les cas, le cycle en cours doit 
se terminer avant la prise en compte d'un appui de 
touche. 


Il nous reste maintenant à savoir comment on peut 
introduire les motifs par leurs coordonnées. C'est 
assez simple : vous introduisez d'abord le nombre N 
de points du contour de l'objet choisi. L'ordinateur 
vous demande alors l'abcisse (X) et l'ordonnée (Y) de 
chaque point (pour iz1 à N+1). Il s'agit de coordon- 
nées écran (X compris entre 0 et 127, Ÿ entre O0 et 
43 pour réserver la dernière ligne au texte). 


Vous pouvez penser que ce procédé est fastidieux, 
mais le dessin se trace au fur et à mesure de l'in- 
troduction des points. Il se peut que vous vous trom- 
piez et qu'un point ne soit pas à sa bonne place. 
Introduisez alors en NEGATIF les coordonnées de ce 
dernier point et la droite précédente sera effacée. 
Cette méthode m'est apparue plus simple que celle 
utilisant un curseur mobile. Au début, vous aurez 
peut-être un peu de mal, mais on s'y habitue vite. 


out 
comportent cinq sous-programmes : introduction des X 
t des YŸ, visualisation ou extinction d'un segment, 
tion d'un INPUT par INKEY$ pour ne pas pertur- 
affichage du dessin. J'allais oublier : N est 
dans le programme à 20 (DIM). On peut prendre 
une valeur plus grande mais l'introduction des points 
de devenir fastidieuse ! 





Mais comment le programme s'y prend-t-il pour effec- 
tuer des déformations ? Prenons des exemples et sup- 
posons (figure 1) qu'on veuille déformer un rectangle 
en un autre. A1, A2, A3 et Al étant les sommets du 
rectangle initial, B1, B2, B3 et BA ceux du rectangle 
final. Joignons A1 à B1, A2 à B2, etc...Divisons cha- 
que segment Ai, Bi en P+1 segments égaux (si l'on veut 
P déformations). Les déformations successives sont 
alors obtenues en joignant ces points respectifs. Les 
calculs et affichages correspondants sont effectués 
aux lignes 2130 à 2310. 


Coordonnées écran 


Points X y 
A1 (o) 0 
A2 Oo AO 
A3 120 40 
Aù 120 0 
B2 SO2 
B3 LORS 


B1 B4 60 15 


Nombre de 
déformations : 7 





Figure 1 


1000 Configuration tyP 

1010 

1020 DAENENTERAMEE 

1039 ‘ :) 1983 TRACE et 

1040 

1050 200 CDEMINTODET7 
1060 GOSUE 1170:REM7E 

1070 ON Z GOTO 1080: 1130:REMSC 
1080 ‘CAS 1 C# 


1090 GOSUB 1270 : IF Z=0 THEN 1060:REMAS 


1100 GOSUB 1390:REMS2 
1110 GOSUB 2130:REM4F 


1120 GOSUB 2020 : IF Z=0 THEN RUN ELSE 1110:REM35S 


1199 °C4572, 72 
1140 GOSUE 13S50:REM2C 
1150 GOSUB 2130:REM27 


Dans cet exemple, on modifie surtout les dimensions 
du rectangle. Toutes les déformations intermédiaires 
sont des rectangles mais d'autres sont envisageables. 
Ainsi, déformer A1 A2 A3 Al en A2 A3 Al A1 ne modifie 
pas le rectangle lui-même mais les déformations inter- 
médiaires sont des parallélogrammes qui donnent une 
certaine impression de rotation des déformations (voir 
figure 2). 

On peut aussi déformer le rectangle A1 A2 A3 Al en 

un triangle B1 B2 B3 B4 (A1 ira en B1, A2 en B2, A3 
en B3 et Al en B4. 


Coordonnées écran 


Points x y 
A1 B4 0 0 
A2 B1 0 13 
A3 B2 127 43 
AL B3 127 0 


Nombre de déforma- 
tions : 19 (impos- 
sible sur l'écran) 


B4 A1 Er = = Al B3 


APCE n 
EX NE 
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ë 
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S 


SJS7 


LE 





Figure 2 


Tout contour est déformable en un autre, à condition 
que les deux contours soient définis par le même nom- 
bre de points, certains pouvant être confondus. 


Bon amusement, mais n'y passez pas trop de temps : 
un ordinateur, il parait que ça peut même finir par 
déformer celui qui l'utilise ! 


15 
DE 
qi 
Fè 
EC 





1160 GOSUB 2020 : IF Z=0 THEN RUN ELSE 1130:REMOS 


1170 ‘MENU PRINCIPAL 68 
1180 CLS : PRINT:REMFO 


1190 PRINT TAB(24) "DEFORMATIONS” 


1REM3C 


4200 PRINT : PRINT : PRINT “VOUS POUVEZ CHOISIR 





PRINT TAB(25) STRINGS (149 °#") 


PRINT:REMII 
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1210 PRINT” 1) MOTIFS PRE-PROGRAMMES":REMOF 
1220 PRINT® 2) MOTIFS INTRODUITS F&8R LEURS COG 
1230 PRINT # PRINT "VOTRE CHOIX (1 OÙ 2 ) ?":RE 
1240 AS=INKEYS : IF A$="" THEN 1240:REM49 

1250 IF A$€<>"1" AND 4$<3"2" THEN 1Z40:REMAF 
1260 Z=VAL(IAS) : RETURN:REMGA 

1270 “MOTIFS PRE-PROGRAMMES 06 

1280 CLS : PRINT:REMEE 

1290 PRINT "VOUS POUVEZ CHOISIR DE DEFORMER :* 
1300 PRINT “ 1) UNE CROIX EN UN OVSLE*:REM7D 
1310 PRINT ” 2) UNE FAUCILLE EN UN MARTEQAU":RE 
1320 PRINT “ 3) UNE MAISON EN UN BATEAU":REMEA 
1330 PRINT ” 4) UN TRIANGLE EN UN @UTRE TRIANG 
1340 PRINT : PRINT “VOTRE CHOIX (1 À 4) ?":REM9 
1350 ASS=INKEYS : IF A$="" THEN 1350:REMDA 

1360 IF AS<"1" OR A$2>"4" THEN 1340:REM54 

1370 Z=VAL(AS):REMC7 

1380 RETURN:REMOS 

1390 ‘LECTURE COORDONNES 8D 

1400 CLS : RESTORE : ND-=0:REM64 

1410 FOR I=0 TO 7-1 : READ D : ND=ND+4xD : NEXT 
1420 FOR I=1 TO ND+4-7 : READ D : NEXT:REMSD 
1430 FOR 1=1 TO N : READ X(I:0):Y{I120) : NEXT:R 
1440 P=1 3 FOR I=1 TO N : READ X{I2P):2Y(l2P) : 
1450 RETURN:REMBF 

1460 DATA O21%:11:7:3:REMRO 


1470 DATA 20:02:20: 100; 1070715720: 15220:25:30:25 


10730: 10:30:0:REM39 
1480 DATA 110:20:103:73;: 100326: 100:79:103:37;11 
2312527293 1257267122r723:115: 20:REMF3 


1490 DATA 251732293137 155 133 153 29 7 20 7 293 5 20 3 16 ? 30) : 


:1023:REM93 
1500 DATA 110:30: 1102357 114:35:114:45:117:45S3117 
32121133) 121793071197 30:REM23 


RDGNNEES":REMS3 
MâË 


IPRINT:REMEI 


0 M ME 
Mik 
La À 


LE”:REM70 ue 
C es 


READ N:REMH7O 


EM3E 
NEXT:REMé 


$ E CN = QE — DRE Qu] 
Sn leo eee 


1510 DATA 20:0:5:0:0:57307: 15740: 15:40:55; re BREF&é4 
1520 DATA 100:40:99:30:75: 40280745: 1203453: 12753460: 1041: 30:REMEF 


1530 DATA 60:00:40; 120:40:REM7C 

1540 DATA S0:20:60:30:70:20:REM23S 

1550 ‘COORDONNEES EC 

1560 CLS : PRINT:REM72 

1570 INPUT “NOMBRE DE POINTS (<=20)"3;N:REM2D 
1580 IF N£1 OR N>20 THEN 1570:REMFC 

1590 CLS:REM40 

1600 P=0:J=P:GOSUR 1440:REMZ8é 

1410 CLS:REM2C 

1620 P=1 : J=P : GOSUB 164D:REMI1 

1630 RETURN:REMDA 

1640 FOR I=1 T0 N+1:REME9 

1650 PRINTG960;"POINT":13"ABSCISSE X 7°3::REMDE 
1660 GOSUR 1920 : X{I:P)=VAL(BS):REMFS 

1670 PRINTG?F60:STRING#S (6032): :REM70 

1680 PRINTa960;"POINT"3I3"ORDONNEE Y ?°3:REMAF 
1690 GOSUB. 1920 : NN ANENeL tes) RENE 

1700 PRINTG960:STRINGH(SD0:32)3:REMS 

1710 IF X(I:P)<D OR Y(I:P)<0 THEN GOSUE 18 : 
1720 IF X(I:P)3>127 OR Y(I:P)>44 THEN 1650: REMCS 
1730 IF I£2N+1 THEN GOSUB 1790:REM3E 

1740 NEXT:REMA7 

1750 CLS:REMAD 
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GOTO 1850:REM4é 


1760 M=N : GOSUR 22S0:REM14 

1770 FOR I=1 TO 2000 : NEXT:REMOO 
1780 RETURN:REM74 
1790 ‘SEGMENT ALLUME 
1800 IF I}i THEN M=1-1 GOSUE 2250 : RETURN:REMEC 
1810 X(Q?2P)=X(I:P) : Y{O:P)=Y(I:P):REM7E 


1820 SET(X(I:P)?Y(I:P))2REMOO SOMME 
1830 RETURN:REM441 CS 
1840 "SEGMENT ETEINT C9 LE TRACE 0 


1850 IF I=1 THEN RETURN:REMES Nr : 
1860 I=I1-1:REM4F ITROTE 
1870 CLS:REM27 


1880 IF I=1 THEN RETURN:REMé7 

1890 IF I=2 THEN SET(X(I-1:P):Y(I-1:P)) : RETURN:REM47 
1900 M=1-2 : GOSUB 22S0:REM8E 

1910: RETURN:REMF 1 

1920 "REPONSES NUMERIQUES 759 

1930 EC=980 : B$="":REMBS 

1940 AS=INKEYS 2 IF A$="" THEN 1F40:REM93 

1950 IF À$>="0" AND A$<="9" THEN 2O010:REMSE 

1960 IF (A$="+" OR A$="-") AND Bé#="" THEN 2010:REM4C 
1970 IF ASC(AS)=13 THEN RETURN:REM77 

1980 IF B$="" THEN 1940:REM97 

1990 IF ASC(AS)=S THEN BS=LEFTS(BS?LEN(BS)-1) : PRINT@EC,”" "3 
EC=EC-1:REMES 

2000 GOTO 194D0:REMCE 

2010 B$=B$+A$ : EC=EC+1 : PRINT&EC:4$: : GOTO 1340:REM1A 
2020 "CLAVIER 15 

2030 AS=INKEYS : IF 4$="" THEN IF F=1i THEN GOSUB 2130 : RETURN E 
LSE 2030:REMSE 

2040 IF A$=" * THEN F=1i-F : RETURN:RENFE 

2030 IF ASC(AS)=31 THEN Z=0 : RETURN:REMSD 

2060 IF AS$SC"0" OR A$>"9" THEN RETURN:REMCS 

2070 G=VAL(ASI+1:REM13 

2080 FOR I1=1 TO N:REMFD 

2090 X(I:@)=X(I:P) : Y(I:G)=Y(I2P):REMSE 

2100 NEXT:REM3D 

2110 P=G:REM44 

2120 RETURN:REMIE 

2130 "INTERMEDIAIRES Aé 

2140 CLS:REMIE 

2150 FOR J=0 TO P : C=J/P:REMFS 

2160 FOR I=1 TO N:REMAD 

2170 X(I:2J)=INT(I(1-CHXX(I20)+C#X(1:P)+.S)2REMEE 

2180 YITrJ)=INT((1-CIKYII:0)+CKkY(I:P)+.5):REMDE 

2190 NEXT I:REMSA 

2200 MEN : GOSUR Z250:REMSC 

2210 FOR K=1 TO 200%F : NEXT:REMSF 

2220. IF F=1 THEN CLS:REM23 

2230 NEXT J:REM71 

2240 RETURN:IREMA& 

225400 "DROITE LE 

2280 UiO)=i:REM4ES 

2270 FOR K=1 TO M:REMSE 

2280 Uit)=X(K:J) : UC3)=Y(K:J) : U{3i=X(K+Î-NxINTIK/N)rJ) : Ut4) 
=Ÿ(K+I-N#INTCK/N) 5; J)2REMOC 

2290 W=USR(VYARPTR(IU(D)) ):REMEL 

2300 NEXT:REM7S 

2310 RETURN:REMSF 


RE 
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Tracé d’un segment graphique 


Cette routine en langage machine trace un segment de 50 X=USR( VARPTR ( U%(0) )) '" trace du segment 
droite connaissant les coordonnées des points d'ori- 60 GOTO 60 

gine (Xa, Ya) et de destination (Xb, Yb), ces derniè- 
res étant placées dans les éléments 1 à 4 d'un tableau 
ENTIER. L'élément O contient 1 si l'on veut tracer un 
segment ou O si on désire l'effacer. Attention : il 
est nécessaire de lancer D'ABORD ce programme (qui se 
termine par un NEW) avant de charger votre programme 
principal. Pensez aussi à le sauver avant ! 




















































Ce programme tracera une diagonale sur votre écran. 


Pour adapter la routine à votre système, placez en 
ligne 210 la taille mémoire RAM disponible sur votre 
ordinateur (CM=16 pour 16K, CM=32 pour 32K...). Le 
programme reloge alors (ligne 250) la routine en fond 
de mémoire et en définit automatiquement le point 
Exemple d'utilisation (après exécution de la routine) : d'entrée (POKE en version cassette ou DEFUSR en’ ver- 


sion disquette). Mais avant toute chose, pensez à dé- 
10 CLS RS RAR : = 
20 UX(0)=1 finir au moment de l'initialisation de l'ordinateur, 
" i "m 5 1 i à 
30 U#(1)=0 : U%(2)=0 ' Xa,YA = 0,0 HÉNE SE size" adéquat (voir tableau lignes 140 à 
4O U%(3)=-127 : U#(U)=47 EXD EDI=- T2 7-47 x 


Sous/rrosramme de trace d'un segment Xa:Ya - Xb:2Yb 


30 ‘ Seauence d'arprel : X = USR (VARPTR ( U#(0) } ) Es 

40 avec U%(0)=1 pour tracer D8 

SON U&(0)=0 Pour effacer CE 

60 ‘ UX(1)=Xa C4 

7 no UX(2)=Ya BA 

80 ” UX(3)=Xb E0O 
É U£(4)=YE 


tire du livre "La pratiaue du TRS-80" volume 7 des 
edition du PSI: avec la permission de l'auteur 


16 kK 32256 (7E0O0H) 
170 32 k 48640 (BEODH) 56 
48 Kk 85024 (FEODH) 


210 CM=48 ? 16: 32 ou 48 selon config memoire SE 

220 IF CM=16 THEN AD=32758 ELSE IF CM=32 THEN AD=-16896 ELSE IF CM=48 THEN 
àD=-512 ELSE PRINT “ERREUR CONFIG MEMOIRE” : STOP:REMS8 

230 1A 

240 FOR N=<AD TO AD+284:REM38 

250 READ 8 : IF 42255 THEN A=Â/10+4#CM-864:REMDE 
260 POKE NrA:REMEF 

270 NEXT'REM6R 

280 ’ ET 

290 IF 4D<O THEN K=65536+4D ELSE K=AD:REMDA 
300 K2=INT(K/256) : K1=K-(K2#256) :REMC2 

310 IF PEEK(16549)3>67 THEN DEFUSR=AD ELSE POKE 165267K1 : POKE 16527:K2:RE 
M60 

320 NEW:REMO4 

930 DATA?2052:127:10:229:2353;:225:2991r/072:32593378:4:2533:3863: 4: REMES 

340 DATA253:94:8:237:87328;: 1270; 205: 137:1270:2217:993724312707120:REMEC 
350 DATASB:;17186756r2738:32552 1215 1873463 1:56:2:348:255:34:24:REM3EB 

360 DATAIZ270;: 1707 146:242323553: 12607 2937: 88 10937 121714722427 637:12680:REM78 
370 DATA2937:16873111:34126: 12702124; 189 :56:52:203;:473:50:30;:1270:REMCA 
380 DATA37:248: 58:25: 12703221 134:5:50:29:1270:58;:30: 12703: 133:REMC0 
390 DATASO:30: 12770:271:190:3:35463 1522213 150:3:50:30;:1270;:58;28:REMD1 
400 DATA1270:2217;194:075072871270:237275:283:127/707:2057137127/70:24:REMSS8 

410 DATA209:125:203:47:50:30:1270:45:248258 2431270 2217134: REMO0E 

420 DATA4:50:28:1270:58:30;: 1270; 132:50:30; 1270:2271: 190:7:56: 15:REN7E 

430 DATAZ21:150:2:50:30:1270:58:289:1270:271: 134: 1i:50:29:1270:REMDE 

440 DATA?237:75:283 12702205; 13: 1270:24; 2093623: 1324322623 2:229:REMCI 

450 DATA?13:1972:2453: 1973 121:183331:71:1207128; 128 185: 40 S:REMDA 

460 DATAS6:73:5224:245780:193:120:183:31:95;:106:38;:0:41:41:REM41 

470 DATA4 TT r4 141342174546 i4br éd 135712871873 147371222:REMI4 

480 DATAD:75: 1702640225: 126: 183:250 7241: 126076237128: 119: 175:REMCC 

490 DATAÎS4#r 673: 1140142 135297927252: 71224122543 1239:342 176: 1764:REM9S 

500 DATAF#: 3 120475 1663119: 199220922252 2012253) 1264:0: 183:REM1S 








Gérald Grandpierre 
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utilitaire 


Mettez de l'ordre 
dans vos cassettes 








Pour ceux qui n'ont pas la chance d'avoir une unité 
de disquette il est vraisemblable qu'ils accumulent EXEMPLE C'EX*ECUT1ION 
un nombre assez important de cassettes, et souvent 
le désordre règne allègrement. 


C'est pourquoi je vous propose ce petit programme 
écrit en BASIC qui permet d'éditer des étiquettes £ 
pour Cassettes sur les imprimantes GP80, GP100, LINE- 
PRITER VII. 


FACE 1 * FACE 2 


IGG1I9D4SITITRE OÙ *G29!8451IDEM 
1656 ! 989! FROGRAMME ! ! 
19891128!SUR 11 
11231134 !CARACTERES 


DESCRIPTION DU PROGRAMME 


- 1) On donne le numéro de la cassette que l'on veut 
éditer. 

- 2) Saisie des titres de programmes de la première 

face de la cassette (18 titres possibles) et des nu- 
méros au compteur du magnétophone sous la forme nnn- 
nnn-XXXXXXxxxxx (Exemple : 089-123-titres). 

- 3) Saisie des titres de la deuxième face sinon on 

imprime l'étiquette. 

- 4) Pour arrêter la saisie taper "@" puis <ENTER>. 


* 
# 
# 
* 
* 
* 
* 
* 
# 
# 
# 
# 


Signification des codes imprimantes : 

chr$(30)= Passage en mode caractères 

chr$(18)= Passage en mode graphique 

chr$(31)= Passage en mode double largeur pour les 
caractères 

chr$(18) chr$(28)=Permet d'imprimer une chaîne de ca- 
ractères graphique d'une longueur chr(x). 





19 ‘ Configuration d'essai : TRS-80 niveau 2 16k ES 
20 ‘ Imprimante GP80; GP100 ou LP VII EC 
30 = ne 
#0 ‘ Copyright 1983 TRACE et Felix Escobedo M IDE 
SO = Nef 
60 REM ==============-2z2====22=---222=—- FE 
70 REM =====ETIQUETTES CASSETTES====== F4 
REM ===============2==-=-=2=-===2===2==--- EA 


CLERAR 2000:DIM M$(10)F1$(20)F2$(20):REMS0 
100 GOSUB spes REM6C 


110 FOR H=1 TO 1i8:F1$(H)=" ":F2#(H)=F1$8CH):NEX 
THREM9S 

120 INPUT'NUMERO DE LA CASSETTE (3 CAR MAX)"; NO:REM5E 

130 IF NO>990 THEN 120:REM764 

140 REM =====2=2SAISIE FACE 1========- BE 

150 REM 44 

160 CLS: PRINT CHR#(23): "ATTENTION : -9- POUR. ARRETER":REMDF 

170 PRINT'FACE! NOM PROG“":REMDC 

180 FOR I1=1 TO 18:REM56 

190 IF LEFTH(F1$(I1-1)21)="8" THEN F1$(I1-1)=" 
Es Z40:REHOC 

PRINT *  NNN-NNN-XXXXXXXXXXX":REM4C 
INPUT Fi$(I):REM70 

D NEXTI:REMS#4 

PRINT'FACE 1 PLEINE":REM27 
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240 INFUT'VOULEZ-VOUS REMPLIR LE SECONDE FACE"3:3R#:REM77 
250 IF R$="0" THEN 290 ELSE 34D:REMCC 

280 REM 35 

270 REM =====SAISIE FACE 2=======2== 28 
PEUSRENSERT 

290 CLS:PRINT CHR$(23)3"FACEZ":REMO0 

300 FOR I=1 TO 18:REMDD 

310 IF LEFT$(F2#(1-1):1)="a" THEN F2$(1-1)=" 
:COTOS&QIREMSE 

320 PRINT *  NNN-NNN-XXXXXXXXXXX":REMD3 

330 INFUT FZ$#(I):REMF& 

340 NEXTI:REMDE 

350 PRINT FACE 2 PLEINE":REMCF 

360 PRINT “IMPRESSION":REM9E8 

370 RE C7 

380 REM ======IMPRESSION DE L'ETIQUETTE======22=2== ED 
APESREMRES 

400 GOSUB 470:REM43 

#10 INPUT'VOULEZ-VOUS RECOMMENCER":RS$:REMSS8 
#20 IF R$="0" THEN 110:REM92 

430 END:REMD1 


44D REM 81 

450 REM ====S6Q0US PROGRAMME D'IMPRESSION======== 77 

460 REM  6D 

470 A$="*":1F NO<100 THEN C$=STR$(NO) ELSE C#=RIGHTS(STR#(NO) 3) 
1REM36 

480 IF NO<10 THEN C$=" "+STRS$S(NO):REMCZ 

490 B$="X LL L4 LE LE 4 344":REM90 

300 LPRINT CHR$(18):CHR#(28) : CHR$(244) 5 CHR$ (224) 5 CHR$ (90) :REMAD 
510 LPRINT A$:CHR$(30):" FACE 1 #sAS$3CHR#(30):° 

FACE 2 "HAS:REMEZ 


920 LPRINT CHR$(18):CHR$(28) : CHR$(244) 3 CHR$S (224) 3 CHR$ (30) :REMBB 
9930 FOR I=1 TO 13:REMFE 

540 LPRINT USING B$35"!"+MID#(F1$i1)r:173)35"!"+MIDS(F1$(1)2523)5"! 
F+MIDH(FASCI) 39211) 5 "#"+MIDH(F2$(1)r7173)5"!"+MIDS(F2$(1)2523)3"! 
“+MIDS(F2#(1)79:11)3"1":REMFÉé 

350 NEXTI:REMOS8 

360 LPRINT CHR$(18):CHR$ (28): CHR$(244) 5: CHR$ (224) :REM49 

570 LPRINT CHR$(30)35"1"3;CHR#(18) :M$(1): CHR$(30):° CASSETTE 


“3 CHRS(18) 3: MS (1): CHRS (18): CHR$(28) 3 CHR$S(3) 3 CHRS( 128) : CHR$(30) 5°"! 
"CHR (18) :REMBé 





580 LPRINT CHR$(30)3:"1";CHR$(18):M$(2):CHR$(30):" 3 CHR#(31) 
. "3 CHR#(30)5 * F3CHR#S(18) M$ (2): CHR$(18) : CHR$(28) : CHR$(4 
)3CHR# (128) 5 CHR$(30) 5" !"1REM24 
D 0NLPR IN NO. "3 CHR#(31):C$3: CHR$(30):" 

l"1REMC2 


800 LPRINT CHR$(18) 3 CHR$ (28): CHR$ (244) 3 CHR$ (131): CHR$ (30) :REMSE 
610 FOR I=i4 TG 1S8:REM72 

620 LPRINT USING B&:"1"+MIDS(F1#(1)1123)3"!"+MID$(F1$(1)7579)35"! 
“+MIDS(CF1SC1)29r:141):"#"+MIDS(F2$(I)51:3)3"!"4MIDS(F2#(1)75293)3"! 
F+HID$(F2$(1):9:11):"1":REMAG 

2930 NEXTI:REMBS 

h40 LPRINT CHR$(18): CHR$(28) : CHRS(244) : CHR& (224) 

450 RETURN:REMEZ 


665 REM A4 
670 REM =======CREATION "TRS-80"========== 9A 
890 REM 90 


890 DATA O:56:56:54:56756 5 120: 120 ? 120 : 120; 1207567963 936:536:120712 
0: 120: 120: 120756756256 546r:54:56: 1207 120: 120: 120:0:REMED 

700 DATA 117;170:170:120:88:88,98,88;88,89,88,88,08; 16:0:0:64:864 
1b43643186:120:120:92:7617b1108:44:92 1243124: 12056:28:28;:78:120 
:120:32:0:REMF4 ( 

710 DATA O:0:0:0:0:0715715215715215:0:0:0:07157157157:15:93r3379r7937 
339379219215: 192149 129431323133 1331371973 1937132 1331932137 1571521527: 
REM9A : 

720 DATA 0O:3:23r73:273:3293071971731r312r145 15:91763:51:56:56728230 
:15:7:9330:0:REMIC 

730 FOR J=1 TO 3:REM6& 

740 FOR K=z1i TO 71:REM23 

750 READ D:REM41 

760 H$(J)=MSCJ)+CHRS(D+128) :REMSS 

770 NEXT K'REM29 

780 NEXTJ:REM20 

790 RETURN:IREMSS 


Félix ESCOBEDU 





30 - TRACE N°5 - Avril 1983 


essai matériel 





Un synthétiseur vocal 





“sympa” 
pour votre 
modèle 1 






MEMORi 









Nous vous l'avions annoncé dans le magazine de notre 
numéro 2 : le voici enfin après un certain retard dû 
à des problèmes de fabrication. A cette époque, il 
existait sous forme de prototype et nous avions déjà 
pu nous faire une idée de l'intérêt qu'il pouvait pré- 
senter. Aujourd'hui, nous avons testé pour vous un 
modèle de série commercialisé par PENTASONIC pour 
moins de 500 F. 


Il s'appelle SYNPAT (synthétiseur de parole) et d'ail- 
leurs le dit lui-même ! Il se présente sous la forme 
d'un petit circuit imprimé de 72 x 88 mm qui se rac- 
corde par un câble plat au connecteur bus du TRS mo- 
dèle 1 (au niveau du clavier ou du châssis d'exten- 
sion). La carte comporte une trentaine de composants 
dont trois circuits intégrés assurant les fonctions 
de décodage et d'amplification des signaux électri- 
ques issus de l'ordinateur. En sortie de la carte, on 
peut attaquer directement un haut-parleur ou une en- 
ceinte acoustique ce qui évite d'avoir à utiliser un 
amplificateur extérieur. La carte est alimentée par 
une pile de 9 volts, type prothèse. Sur le circuit 
imprimé, on trouve un petit potentiomètre permettant 
de règler le niveau sonore de l'amplificateur. Les 
personnes bricolant un minimum auront intérêt à mon- 
ter le tout dans un coffret en matière plastique sur 
‘lequel seront fixés un interrupteur de marche/arrêt 
alimentation, un potentiomètre de règlage et une pri- 
se de sortie haut-parleur. On peut regretter que ces 
améliorations ne soient pas prévues en standard. Tou- 
tefois, elles auraient probablement élevé sensible- 
ment le prix de l'ensemble qui il faut le reconnaître, 
est assez bas comparé aux synthétiseurs classiques 

(de l'ordre de 2500 F). Par contre, et étant donné 
qu'un amplificateur basses fréquences existe sur la 
carte, il aurait été astucieux de pouvoir y raccor- 
der la sortie son du magnétophone utilisée par de 
très nombreux jeux. Dans une future version peut-être ? 


Remarque : nous n'avons pu obtenir cette certitude 
mais il doit être techniquement possible, moyennant 
l'utilisation d'un câble adéquat, de raccorder le 
synthétiseur sur les ordinateurs Vidéo-Génie, PROF-80 
et modèles 3. 


La synthèse vocale s'effectue par logiciel à partir 
des phonèmes (sons élémentaires) de la langue fran- 
çaise qui suffisent à reproduire pratiquement tous 

les mots de notre langue. 


La fourniture actuelle du synthétiseur comprend la 
carte montée et testée, telle qu'elle est décrite ci-: 
dessus (sans la pile et le haut-parleur), une notice 
explicative donnant quelques exemples d'utilisation 

et une disquette non-système contenant le logiciel 

de synthèse vocale et un programme de démonstration. 
Une cassette sera en vente ultérieurement. Mais le 
moment est venu d'entendre cette voix "inhumaine'" ! 


Le chargement du logiciel de synthèse s'effectue par 
la commande RUN "SYNPAT'". Aprés exécution, le program- 
me se loge en mémoire selon la configuration présen- 
te du système (16 à 48K, Level 2 ou BASIC disque) et 
affiche une valeur d'adresse. Cette valeur devra en- 
suite être utilisée comme point d'entrée de la rou- 
tine de synthèse vocale invoquée par USR. Cette rou- 
tine est auto-protégée et ne gêne en rien l'exploita- 
tion du programme d'application. Lançons maintenant 
le programme de démonstration : RUN "DEMO". L'adresse 
affichée précédemment est demandée puis une voix "ca- 


verneuse" mais distincte se fait entendre : "Je suis 
l'ordinateur qui parle... Quel est votre nom ?". Vient 
ensuite un long discours : "tout programme BASIC peut 


désormais parler. Lisez attentivemen ce qui suit..-", 
dans lequel le synthétiseur fait la preuve de ses ca- 
pacités d'élocution : "Les chaussettes de l'archidu- 
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chesse sont archi sèches... Bizarre, bizarre, vous 
avez dit bizarre mon cher cousin !" (1à on croirait 
plûtot entendre Michel Simon !). Vient ensuite lalis- 
te parlée de tous les phonèmes utilisables (30 plus 
le silence), chacun d'eux étant accompagné d'un ou 

de plusieurs exemples : son "u" comme Honolulu, son 
"che" comme chat, chaud, etc... Certains sons emploi- 
ent une syntaxe spéciale comme par exemple : E' (ou 
&) pour le son "é" ("pays" s'écrit M"PE'I" ou "P&I") 
ou encore 1 pour le son "un" ("sympa" s'écrit "S1PA"). 
La possibilité est alors offerte de frapper des phra- 
ses ét de les entendre prononcer. Avec un peu d'habi- 
tude, on arrive très rapidement à écrire de manière 
phonétique : "VIV LA REVU TRAS", "JE SUI S1PA"... 


Quelques compléments techniques et historiques 


Les machines parlantes, comme les automates, ont 
toujours constitué un rêve pour l'homme. En 1779, 
Christian Kratzentein réalisa une machine composée 

de résonateurs capables de prononcer trés correcte- 
ment les voyelles. Douze ans plus tard, Von Kempelen 
construit une machine parlante dans laquelle un souf- 
flet envoyait de l'air sur une anche excitant un ré- 
sonateur contrôlé manuellement. A condition de manier 
correctement les nombreux leviers dont elle était 
munie, le résultat obtenu était tout-à-fait satis- 
faisant. En 1835, Joseph Faber présente une machine 
similaire qui parle à voix haute ou chuchotée, et 
chante le "God save the Queen". 

Mais c'est en 1939 que le premier synthétiseur élec- 
trique fait son apparition: le VODER (Voice Operation 
DEmonstratoR), dû à Homer Dudley. Ici, les sons sont 
produits par des oscillateurs et modifiés par des 
filtres dont les paramètres sont modifiés par des 
touches. 

Parallèlement, les recherches menées par les labora- 
toires de la Bell Telephone conduisent au "Harp Tele- 
phone". Il s'agit d'une série d'anches accordées sur 
différentes fréquences et placées dans le circuit 
d'un électro-aimant. Ce dispositif est l'ancêtre du 
VOCODER, puisque le principe repose sur la décomposi- 
tion du spectre de parole (environ 3000 Hz) en 
plusieurs bandes de quelques centaines d'hertz de 
largeur. Cependant, l'intelligibilité de la parole 
ainsi obtenue reste médiocre, et les recherches se 
sont orientées dans d'autres directions. 

I1 faut également citer. les systèmes IBM 7770 et 
7772, basés sur le stockage des mots sous forme numé- 


rique. Pour réduire le volume d'informations à stocker 


(environ 300 octets pour une seconde de parole), 
l'idée est venue de découper les mots en morceaux, 
et de reconstituer par juxtaposition de ces morceaux 
un grand nombre de mots. 

En poussant plus loin cette décomposition, on est 
arrivé à définir le phonème, ou son élémentaire, qui 
est la plus petite entité phonétique. L'assemblage 
des phonèmes entre eux selon les lois propres à 
chaque langue permet de reconstituer tous les mots de 
cette langue. Ainsi, on dénombre 37 phonèmes pour le 
français, et 46 pour l'anglais. 

En fait, ces lois d'association sont extrêmement 


Pro rimume de 


recherche et de 
cowlmnoison de 
diphouewes 
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amesunu | 


Une remarque toutefois : il semble assez difficile 
de réaliser le son "on" tel qu'il est décrit dans la 
notice. 


Pour sonoriser vos programmes BASIC, rien de plus sim- 


ple. En voici un exemple : 


A$ : "SALU LE' KOP1" 
X = USR (VARPTR (A$) ) 


Les paroles produites sont particulièrement audibles 
bien que la "voix" soit légèrement voilée. Voilà qui 
donne encore plus de personnalité à ce bon vieux TRS 
qui n'a jamais semblé aussi vivant depuis son enter- 
rement ! 

=———————————YJean-Pierre du Tillet 


complexes, et il est préférable de mémoriser le 
résultat de l'association des phonèmes deux à deux; 
cette combinaison est appelée diphonème ou diphone. 
Une étude statistique du LIMSI a trouvé qu'un réper- 
toire de 627 diphonèmes suffit en français. 


Le système SYNPAT réalise par programme la synthèse 
vocale à partir de diphonèmes. Le processeur Z80 n'est 
pas trés rapide (1.77 Mhz), mais il suffit pour exé- 
cuter ce travail de sélection et d'association. Il 
est composé d'un programme qui réalise la synthèse, 
et d'un circuit qui convertit les échantillons numé- 
riques sur 7 bits en un signal analogique représen- 
tant la parole. Ce signal est restitué par un haut- 
parleur aprés amplification. 

La synthèse qu'effectue le programme est à base de 
diphonèmes, afin de pouvoir créer presque tous les 
mots de la langue française (le vocabulaire n'est 

pas limité). Par ailleurs, cette synthèse est mise 

en oeuvre depuis n'importe quel programme BASIC 
conçu dans ce but: il y a donc une grande facilité 
d'utilisation. 

Il a cependant fallu réaliser un compromis entre la 
taille mémoire du programme de synthèse et la qualité 
de la reproduction. C'est ainsi que certaines combi- 
naisons, qui nécessitent pour être reproduites par- 
faitement des calculs extrêmement longs et complexes, 
ont été en faic simplifiées. 

De même, parmi les 37 phonèmes de la langue française, 
certains correspondent à un même son et ne se diffé- 
rencient que par la durée. Le programme ne génère 

que les sons courts, les sons longs pouvant être 
créés par répétitions. D'autres phonèmes, correspon- 
dant aux "demi-voyelles", ne sont pas traités mais 
peuvent être obtenus par combinaison de phonèmes 
existants, par exemple YO par 10, X par KS ou GZ. 

La synthèse vocale obtenue n'est pas parfaite: en 
plus de l'association des phonèmes, il faudrait aussi 
traiter la "prosodie" des phrases, c'est-à-dire le 
rythme, l'intonation, toutes les nuances que nous 
faisons passer dans le langage courant et qui en 
augmentent la signification. 

Il ne faut donc pas chercher dans le système présenté 
dans cet article "le" système parfait de synthèse 
vocale. Il est par contre un compromis peu onéreux 
entre la taille mémoire nécessaire et la qualité de 
reproduction. De quoi permettre à votre ordinateur 
de vous dire "merci" ! 


£chanhllon 


Conversion 


numerique 


-analogique 





essai matériel 





Interface MDX 3 : 
pour avoir des disquettes 
pas cher 





Cette interface très attendue des lecteurs à en juger 
par le courrier reçu, est maintenant disponible en 
France auprès de Pentasonic. Elle permet de diminuer 
de manière sensible le coût de la première unité de 
minidisquette sur le modèle 3 tout en offrant de sur- 
croît l'interface RS-232 et un modem téléphonique 300 
bauds intégré... À noter que ce dernier dispositif, 
conçu pour fonctionner selon les normes américaines 
n'est pas conforme à la législation française. Mais 
peut-être qu'une petite adaptation résoudrait simple- 
ment le problème... 


MDX-3 est une interface en kit réalisée par Micro- 
Design (Austin, Texas) composée d'un circuit imprimé 
double face d'excellente qualité (243 x 165 mm) avec 
sérigraphie et d'une documentation en permettant le 
montage (du moins pour ceux lisant l'anglais). A la 
vue du circuit imprimé, on distingue le couplage mi- 


nidisquette à gauche et la partie transmission à droi- 


te. Les deux connecteurs utilisés pour raccorder de 
une à quatre unités de minidisquettes (deux dans le 
modèle 3 et deux à l'extérieur) sont à contacts do- 
rés. À droite, on remarque l'emplacement du connec- 
teur 25 points pour la liaison RS-232. La liaison en- 
tre MDX-3 et la plaque unité centrale du modèle 3 
s'effectue par deux câbles plats. 


Le montage des composants sur la carte ne demande 
aucune compétence technique particulière : il suffit 
d'un bon petit fer à souder, d'une main ne tremblant 
pas trop... et de faire preuve d'un peu de soin et 
d'attention. Il est toutefois conseillé de savoir 
faire une soudure à l'étain ou de s'entraîner préa- 
lablement (sur un autre circuit imprimé de préféren- 
ce !) pour atteindre ce but. 


Examinons maintenant ce dont est capable cette inter- 
face. Elle est strictement compatible avec celle four- 
nie par Tandy, aussi bien sur l'aspect matériel que 
logiciel. Le contrôleur de minidisquette est un Wes- 
tern Digital FD 1791B qui permet de lire ou écrire 

en simple ou en double densité sur une à quatre uni- 
tés simple ou double face, 40 ou 80 pistes (selon le 
système d'exploitation employé). Un séparateur don- 
nées/horloge externe est inclus sur la carte. 

Pour la partie transmission, le contrôleur est un TR 
1602B et le générateur de fréquences un BR 1941. Ici 
encore, aucun problème dé compatibilité avec l'inter- 
face standard Tandy. Le modem (qui lui, est inédit) 
utilise l'interface série et est composé d'un circuit 


intégré très récent : le MC 14412, et de quelques 
circuits d'adaptation (filtres de fréquences essen- 
tiellement). Il utilise le principe de modulation 
FSK (Frequency Shift Keying) basé sur la génération 
de deux fréquences (1070 Hz en émission, 2025 Hz en 
réception) augmentées ou non de 200 Hz (selon que 
l'on transmet un MARK ou un SPACE) et peut dialoguer 
à la vitesse de 300 bauds (300 bits par seconde) en 
se raccordant à une ligne téléphonique (aux USA, rap- 
pelons-le !) par l'intermédiaire d'un transformateur 
présentant une impédance de 600 ohm. 


Le circuit imprimé nu et la documentation comprenant 
les schémas électriques sont vendus 725 F. Les compo- 
Sants que l'on peut trouver chez le même distributeur 
ne devraient pas excéder ce même prix (vous n'êtes 
pas obligé de tout monter, à commencer par le modem 
par exemple). Mais ce n'est pas encore fini ! Il vous 
faudra ensuite vous procurer la mécanique de fixation 
des unités de disquette, une alimentation et les câ- 
bles de liaison. Tout cela vous coûtera 1382 F si 
vous ne voulez pas vous ‘casser la tête" à chercher 

à gauche et à droite. Enfin, le lecteur de minidis- 
quette (simple face double densité) sera à vous pour 
2195 F de plus (prix PENTA). 

Pour ceux qui hésitent encore à empoigner le fer à 
souder, il existe depuis peu la carte MDX-6 montée 

et testée qui, pour 1497 F vous offre uniquement le 
couplage minidisquette (pas d'interface de transmis- 
sion ni de modem). 

Et si maintenant nous faisions un petit bilan ? 


- carte MDX-6 (montée et testée) : 1497 F 

- kit mécanique, alimentation : 1382 F 

- 1 unité de disquette (simple face) : 2195 F 
Total : SOTALEF TIC 


Remarque : vous atteindrez sensiblement ce même prix 
si vous montez vous-même l'interface MDX-3 (et gagne- 
rez donc "gratuitement" le couplace RS-232 et le mo- 
dem). 

Le même kit chez Tandy vous coûtera 6995 FF TTC avec 
en plus, il est vrai, le système d'exploitation et 

la garantie de réparer votre ordinateur sans coût 
supplémentaire, ce qui ne sera plus le cas si vous 
introduisez dans votre TRS du matériel "étranger". 

A vous de choisir maintenant ! 


————————— ]]] ])] Jean-Pierre du Tillet 
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enseignement 





Et il pompaiït, 
pompait, pompait 


VIDANGE D CORPS 
ET REMPLISSAGE IE B 


SIMULATION DE DEUX POMPE 


[ee] 


L'ordinateur peut être utilisé pour simuler des fonc- 
tionnements d'appareils ou de machines dans le cadre 
de l'enseignement des cours techniques et scientifi- 
ques. Par exemple en Physique, lorsqu'un professeur 
doit expliquer le fonctionnement de la pompe aspiran- 
te il doit dessiner au tableau des éléments i dans 
la réalité se meuvent. Pour simuler le mouvement et 
montrer les différentes positions ne fut-ce que du 








piston, le professeur utilisera des craies de couleur, 


et cela en surchargeant le dessin. Il en va de même 
des clapets de fermeture. Un jour cependant, les 
ves ayant été plus lents pour copier le dessin je me 
rendis dans le fond de la classe et, quelle ne fut 

pas ma surprise... En voyant ce tableau surch 
couleurs, les différentes positions des organes, € 
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.. m'apparaissaient comme un véritable fouillis où 
il était impossible de déterminer où se trouvait le 
point de départ et le point d'arrivée. Bref, on n'y 
comprenait plus rien ! A partir de cet instant, je 
me dis que c'était la dernière fois que je procédais 
de cette façon et je me mis au clavier, bien décidé 
à trouver une solution. Au fur et à mesure de l'éla- 
oration du programme je me rendais compte du gai 
temps et de l'efficacité que j'obtiendrais. En ef- 
l'explication “ancien système" prenait une heure 
cours et avec "le système ordinateur" un cycle 
complet avec animation prenait trois minutes... Et 
en prime on peut recommencer le tout indéfiniment. 





Nous vous donnons dans ce numéro la liste du program- 
me permettant de simuler le fonctionnement d'une pompe 
aspirante. Dans le prochain numéro, le programme pour 
la pompe aspirante-foulante. 


10 ‘ Configuration type : niveau 7; 16K: cassette AE 


20 "EE 
302% PROCHIPRE AS PIIE ROANST-E RE 
40 ‘ CC) TRACE et R. Henrotay OU Te 
SQ = HUE 
80 CLS:REM40 

7/13E GENERALITES BA 


80 CLEAR SOO:REM63 

9Ù FOR -X=0-T0 127 =. SET(X:0)-: SET(X77)%--NEXI. X=REMCD 

100 FOR Y=D TO 7 -: SET(OrY} = SET(127:V) =: NEXT Y°REMEF 

110 FOR X=1 TG 10:REM9S 

120 PRINT à 66?STRING$(60:32)3::REME7 

130 FOR T=1 TO 50 : NEXT T:REM&C 

140 PRINT à 66:"ANIMATION EXPLI@GUANT LE FONCTIONNEMENT D'UNE POM 
PE ASPIRANTE"3;:REME8D 

150 FOR T=1 TO 1OO:NEXT T:REM2C 

160 NEXT X:REM8i 


170 PRINT à 256?"UN RESERVOIR ‘A 7 PLEIN D'EAU;":REM4E 

180 PRINT & 384:"SERA POMPE DANS UN RESERVOIR ‘B'.":REMS57 

190 PRINT à S512;"GUAND CE DERNIER SERA PLEIN 7 LA POMPE S'ARRETE 
RA":REM9I1 


200 PRINT à 660:". . . ET LE CYCLE RECOMMENCERA . . . ":REM1B 
210 PRINT à 852:""::REMF2 

220 INPUT "'ENTER' POUR CONTINUER “:X:REMFE 

230 CLS:REM9é 

240 ‘ DESSIN DE LA POMPE ET DES RESERVOIRS i0 

2950 PRINT à 448, "RESERVOIR B"3::REMCé 

260 PRINT à 1010:"RESERVOIR À*:REMDS 

270 FOR X=40 TO 55 : SET(X:35) s NEXT X:REMAS 

280 FOR X=66 TO 82 : SET(X235) : NEXT X:REM93 

290 FOR Y=35 TO 45:REMAO 

300 SET(SS7Y) : SET(66:Y):REMII 

310 NEXT Y:REME9 

320 FOR Y=19 TO 35 : SET(39:Y) : NEXT Y:REM6B 

330 FOR Y=15 TO 35 : SET(82:Y) : NEXT Y:REMé4 

340 FOR X=40 TO 82 STEP 2 : SET(X:14) : NEXT X:REMé4 
3950 FOR Y=15 TO 25 : X=68-(2*xY) : SET(X:Y) : NEXT Y:REMIS 

360 FOR Y=19 TO 25 : X=76-(2#%Y) : SET(X:Y) : NEXT Y:REMOS 

370 FOR X=5 TO 935: SET{Xr736) : NEXT X=REM/1 

380 FOR Y=24 TO 36 : SET(SrY) : SET(357Y) : NEXT Y:REM6E 

390 FOR X=30 TO 90 : SET(X:47) : NEXT X:REM2C 

400 FOR Y=40 TO 47 : SET(30:Y) : SET(902Y) : NEXT Y:REM28 

410 FOR X=30 TO 90 : SET{X:47) : NEXT X:REM18 

420 FOR Y=40 TO 47 : SET(307Y) : SET(902Y) : NEXT Y:REM14 

430 ‘ ENTREE DES CODES GRAPHIQUES ET CHAINES 5 

k4D AS=CHR$S(191) : B$S=CHR$S(129) : C$S=CHRS (132) :REM7D 

450 D$=CHR$ (146) 2 ES=STRINGS(132A$8) : F$=CHR$(176) :REM3C 

460 G$=CHRS(131) : H$=CHRS(128) : IS=CHRS(140) 2: REMSF 

470 J$=STRINGS(21:H$6) : K$S=STRINGS(S2GH):REM77 

480 L$=STRINGS(4:FH)+STRINGS (42 IS )+FH+FS+AS+STRINGS(10:F$) :REMD3 





490 MS=STRINGHS(42FH)+STRINGÉ (42 CH) +FS+FE+ASESTRINGS (10: FH): REMCA 
500 NS=STRINGS(S21$) : OS=CHRS (92) +HS+CHRS 92) +HSHCHRE (I) REMIA 


St REMPLISSAGE DU VASE B Di 
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520 FOR X=847 TO 975 STEP &4 : PRINT à X2E$3:3 : NEXT X:REMADO 
- 9930 FOR X=865 TO 1003 STEP 64 : PRINT à X:E$3 : NEXT X:REM77 

940 REMSANIMATION 1€ 

990 W=37 : V=38 : D=64 : Z=660:REMEN 

560 GOTO &10:REMAA 

370 PRINT 9 341,"<--"5:PRINT à 4057"<--"3::REMF3 


580 PRINT à 584:0$::REM4D 

590 PRINT à 128; "VIDANGE DU CORPS"3:REMSA 
600 PRINT à 1927"ET REMPLISSAGE DE E"::REMCD 
6810 PRINT à 732:STRING$(4:H#$)5::REMCEé 

620 PRINT à 732:K$3:REM2E 

630 PRINT à 798:"["3::REMES 

640 PRINT à 926:"LC"3:REMES 

650 PRINT à 818: "ASPIRATION"::REM3C 

680 PRINT à 3347.1$::REMOS 

870 PRINT à Z:L$::REM3D 


‘680 FOR X=7-374 TO Z+10 STEP D : PRINT 9 X:A$3: : NEXT:REM7C 

690 FOR T=0 TO 150 : NEXT:REMSE 

700 IF Z=404 : GOTO 730:REM8E 

710 PRINT à ZrJ$3:REM1i7 

720 2=7-64 : GOTO &20:REMDOE 

730 PRINT à 341:° "3 1 PRINT à 584” "31REM77 

740 PRINT à 128:J$::REMBS8 

750 PRINT à 192:J$;:REMAD 

760 W=W-1 : V=V+1:REMCE 

770 FOR X=5 TO 335 : SET(X2W) : NEXT X:REMF1 

780 FOR X=32 TO 54 : RESET(X?V) : NEXT X:REMBE 

790 FOR X=67 TO 29 : RESET(X2V) : NEXT X:REMSE 

800 IF V=46 THEN 970:REM&4F 

810 PRINT à 732:STRING$(4;:H#)3:REMFD 

820 PRINT à 732:N$;:REM&2 

830 PRINT à 798" "::REM7A 

840 PRINT à 926" "3:REM77 

850 PRINT à Z:M$::REME7 

860 FOR X=7-374 TO Z+10 STEP D : PRINT à X:A$%: : NEXT X:REM6F 

870 IF Z2=468 THEN PRINT à Z-8Z2D$3 : PRINT à 2Z-59:E$: : PRINT à 
Z-56:D$35 = PRINT à Z-52:D$3 : PRINT à 2Z-49:C$3 : PRINT à Z-46:D 

$5:REMSS 

880 IF Z<596 THEN PRINT à Z+69:"L"3:REMD2 

890 FOR T=0 TO 100 : NEXT T:REM4ë 

900 PRINT à ZrJ$::REMS8 

910 PRINT à 2-3742H$3:REME4 

920 PRINT à 818:J$3;:REMFD 

930 PRINT à 5547'"REMPLISSAGE DU CORPS": :REMC#4 

940 IF Z=660 : GOTO S7D:REM94 

950 Z=127+64 : GOTO 810:REM27 

960 ‘ FIN D'ANIMATION 3D 

970 PRINT à O:"VOILA UN BON TRAVAIL DE FAIT ! !’:REMAZ 

980 PRINT:REM77 

990 PRINT'AVEZ-VOUS REMARGUE L'OUVERTURE ET LA FERMETURE DES CLA 
PETS ?":REMD7 

1000 FOR T=0 TO 2000 : NEXT T:REMA7 

1010 GOTO 60:REM18 





——_—_—_—— —/#roger Henrotay 
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logiciel 





Un traitement de texte 
tres beau, pas cher 





Du traitement de texte en BASIC ? 





Rien de comparable à SCRIPSIT ou autres WORD 
utilisés par les professionnels du clavier. 

gramme est destiné à ceux qui disposant, 
d'une modeste imprimante, souhaitent util 
machine pour taper de temps à autre des note 
nelles, une lettre à un ami ou à leur ne tan 





ou 
même faire part à TRACE de leur opinion sur ceci ou 


cela... ou mieux encore : écrire un article ! 


Le mode d'emploi est résumé dans la première page 
d'écran. On peut le relire en cours d'exécution par 
l'option "A" du menu. 


Quelques précisions sont nécessaires. 


Les lettres majuscules sont en SHIFT et les minuscu- 
les en NON SHIFT, comme sur une machine ordinaire. 


2 
2 Configuration type : modeles 1 ou 

3 cassette ou disauette -  imprriman 
4 BD RE EE SRE ET ee PR ER SR AE A AP CT LE Er eg 
5 MACHEC/BAS 07/82 - MACHINE à 
8 ‘ ÎC) 1983 TRACE et Roger Brousm 
FF DRE RE D SE 
10 CLEAR 50 : CLEAR MEM/34%2 : DEFINT à: 
4865 2 DIM SÜME+3) ss C=STRINGS(193; 7?) 
20 N=D : C2="" :.C4=CHR$S (10) : C9=" ” 

34) : MA=B:REMEI 

30 S4=STRINGS(8,:25) : SA=STRINGS(B:37) 
TRINGS(828) 5 CS=CHRS(138) : GOTG E70: 
40 M=0 + IF K2=1 : M=NO-1:REM4Z 

20 IF N=JL-S5 GCOSUR &30:RENSS 

80 C2=INKEYS : IF C2="" THEN 60 ELSE à= 
70 IF 432 OR N=JL THEN 1Z20:REMC4 

80 IF 8=91 &ND N£JL à: N=N+Ii : PRINT CH 
30 IF âréé AND BETI 3 CE=CHRSCR+3E) 5: 


100 IF À>96 C2=CHR$S(A-32) :REM49 


110 N=N+i : GOSUE LA s PRINT C2: : GO 
120 IF À=8 AND Nÿ0 : PARCS I C7-C9 
0 SO:REMHEé 

130 IF 4=9 AND N£JL : H=h+i : C2=CS : 
TG SO'REM#4 

140 IF À=24 AND N57 PRINT 52: : N=N-8 
930 IF À=26 AND N37 PRINT Si: : N=N-8 
180 IF À=27 AND N£JL-8 PRINT S4: : N=N 
170 IF À=25 AND N£Ji-8 PRINT S33 : N=N 
180 IF 8=i0 AND NC PRINT CHR$(24)5 : 
190 IF A=31 AND N=0 THEN ZSO:REMES 

200 IF À=13 COTO 400:REMNDE 


ï 


La sonnerie est simulée par "bip" sonore (ligne 620). 
On a le choix du nombre de caractères par ligne et 
de lignes par page, et de la marge horizontale sur 
l'imprimante. 


La modification d'une ligne se limite au déplacement 
du curseur, au remplacement de caractères et à la sup- 
pression ou l'ajout de caractères en fin de ligne. 


La position du curseur définit la fin de ligne lors- 
que l'on frappe ENTER. 


On peut imprimer ou sauver sur disque ou cassette une 
seule page à la fois. 

Tous les caractères du clavier peuvent être imprimés, 
mais attention, la sauvegarde du texte sur K7 n'ac- 
cepte pas les guillemets. 

Enfin, la vitesse de frappe peut être supérieure à 
celle admise par une machine mécanique ! 





re EF 
Jr 16 a 48 K CPE 
te NE 
RE AE 
ECRIRE "FE 
iche  caFA 
== —— a 
I-N : DEFSTR C:2S : ME=MEN 
: CS=C:REMEE 
5 Ji=é3 : JP=ME : C3=CHRS( 
5 SI=STRINGS(S:24) : 5225 
REMBO 
BSC(C2):REMES 
B$(25)3 : COTO SO:REMéË 


GGTO 110:REMAD 


TO SO:REMFC 
5 GOSUB 220 : N=N-1 : GOT 
PRINT CZ; : GOSUE 220 : GO 
3 GOTOG SÜ:REMEF 
: GOTG SO:REME# 
+8 3 GOTO SO:REM7D 
+5 : GOTO SO:REMES 
N= FE 1 : GOTO SO:REME 
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F0 GOTOG SOSRENSC 

LEO C=LEFTSiCrN-ii+CZ+MIDS(CiN+I) =: RETURNSREMTS 

230 PRINT ‘+ IMPOSSIBLE ...% : RESUME 2S0:REMO9 

ca RESUME NEXT:RENER 

ES OH ERE CG O 2 IF K2=1 : M=Ni:REME# 

PANNE PNNINS JF CLIGHE(GS) ENTREEIS: -- SUR ERREUR <BRE8K} GOT 
O 2507 : GO0T0 750:REMF4 

o HG=1 : INPUT °RELIRE à P&RTIR DE LA LIGNE NO i “:3NO : IF NO 
F EN ZSO:REMSE 

BED SOSUR 1140 à: FOR K=NOQ IG M = IF Ki=1i FRINT STR$IK:i3C 





290 P C 

300 ( PEEK(14591)=128 THEN 

He 5 NEXT J : IF C2="S" 

320 NEXT K : GOTO 2S0:REME 

30 PRINT “MARGE =" MAï ? INPUT MA : GOS 
AD INPUT "PREPAREZ L'IMPRIMANTE PUIS <E 
50 FOR 1=1 TO M : LPRINT TAB(MA)D3 à IF 


S:REMDI 
DSP RINTeS ORNE NNESRRS RENE 


= æ, 













="? 3: INPUT 
{O/N) :CO:REMED 
HERC2-d0 Se EDR 
ÉOPOMESTAREMSS 
Mat+i SIMI=LEFT 
410 IF LENISIH})=D0 
! IF KHizi PRINT C5 
N=f PRINTC4: 


] 
T 


i 


JE 


rie 


—| 


LF1 ft ” 
es 





{CrN) 
12=5 (M) 
Si: 


(D=i 





:REN18 


F 
TR 


ï sn 


a 
3 
- nE 
Sols 


bot 
er 


"6070 


aie es 





L& LIGNE à HODIFIER “:NO 


: PRINT 29) 
GOTO 4D:REMCZ 
CINSERER @FRÈES LA LIGNE 


(+ Mi=M 


S (NO) ; CHR$ (2 





5 GOTG ZSOGIRENTS 
RES PS RD 1e SRE 2] DE D ESA Qi ECO LT 18 ES 
INT SiNGSi 3 Mi=zh : NO=NO+1 = PRINT 


5 PRINT RÈTRES AT 
Û ON ERROR € 


F3REN97 


4 


nl 


HAT 


É 


1 Ne 2) 


ONE 


| es Top 


. 


#41 LA Cr M 
AT dt fe | 
ES ICT un 


= 
IT ef nv 


MI D 


ET 
Æ 
"tt 
(ee 


7 

Ti Di :5 

Î 12: À 

ET f 

HT 2: © 5 

MEL ., à RIT 

Fadet h so HI J3U 
SUFPRIRER ‘5N0 
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“FAUT-IL TERMINER LA Pé 


2 
Hi 


LPRINT* 


NO °:HG 





:REMFO 
N K=M:REMBE 





UE 1140:REM6E 
HTERH :C2:REMZS 
KHi=i LPRINT USING °###i° 


GE PAR DES LIGNES 


NEXT I:REMSS 


REMFO 


#40 IF THEN 50 ELSE PRINT ‘+ PAGE PLEINE" : GOTQ ZSD:REMAS 


IF NOM GR NG£1 THEN 


7 


HRS(14: Hi=" HID$iC 


M?JP-1i GR HG OR 


H=H+i:RENTÉ 
GOTO 40:REM 


PTE 
# 


“:REMBS 
FNOM DU 


FICHIER : “:NOS:REMS4A 
Za0:REMé#à 
FICHIER + “:NOS:REMOS 


EETURN:REMIS 
OR NG<1 THEN 


ea 






ur 


add THEN FSC:REMEF 
Î EE GoTO Z3D: Fees 

PRINT »SAUY ER LE TEXTE SUR K7*:REMAGD 
INPUT CK7 -- RECORD -- <ENTER} 322 


(REA 
LT 
+ 


ON ERROR GOTO 240 : CHD°T':REM4Z 
ON ERRGR GOTO D:REMFS 
FOR I=i TG V à: S(M+1)="@88" : NEXT I : FOR I=1 TO M+V STEP 3 


a UE ut a mt FT eh ai El 
u [Ti 


D 
Fes CT 1 Ci Qc et M fe 
i CRÉENT UTTE 


sREMBË 

ÉO0 FRINT#-i3:C3+S(I)+C3:C3+S(I+i1)+C2: CH+SI+T)+C3:REMTF 

810 NEXT I : PRINT : GOTO 250:REMES 

820 CLS FRINT TâBiiéi °H A CHINE Ë ERCEN DIR AE EE PRE 
T:REMED 

830 PRINT “MEMO :°:ME "LIGNES MAXIMUM PAR PAGE":REM7F 

640 PRINT CHR#(94): ” OÙ ” CHR$#(93) " = EFFACER 1 (8 EN SHIFT) C 
ARACT. DIRECTION FLECHE':RENMIE 


550 PRINT “LI OÙ * CHR#(92) “ = AVANCER OU RECULER LE CURSEUR DE 

(8 EN SHIFT) CâR.":REMBA 

560 PRINT “£ENTERY OBLIGATOIRE EN FIN DE LIGNE { 137 CAR. MAXI ) 
:REROD 

870 PRINT “POUR UNE LIGNE BLANCHE TAPEZ <ENTER>":REM9E 

50 se "POUR TERMINER UN TEXTE TAPEZ £CLEAR> EN DEBUT DE LICN 


eu Ci 
Lf 


90 BRINT "EN COURS DE LECTURE: <ESPACE>=GEL AFFICHAGE» €5>=5TOP 
BE Aie : FRINT:REN7R 

70 "À = MEMO : N = NOUVEAU TEXTE : C 
R = RE LIRE" :REMDOS 

910 PRINT "M = MODIFIER : I = INSERER : S 
RIMER°:REMES 

920 PRINT “LD = LIRE UN TEXTE SUR DISQUE ; SD = SAUVER LE TEXTE 
SUR DISGUE*:REMCE 
930 PRINT "LK = LIRE UN TEXTE SUR K7 > SK = SAUVER LE TEXTE SUR 
K7 3 F=FIN":REMEC 
540 GOTO ZS0:REM2D 

POP SUDNPUT cf 3 N°7 CC AR 7 M1 IT :-S FCBR jp: 
DUREE CSN 5 F }-"SCÉSREMES 

760 K2=0 : K1i=0 : IF Ci="A" PRINT : GOTO 830:REMSS 

570 1F Ci="N" GOSUB 1140 : GOSUB 1100 : PRINT CHR$(14): : GOTO 4 


CONTINUER TEXTE : 


SUPPRIMER : PR = IMP 


980 1F Ci="C" GOSUB 1140 : GOSUB 1110 : PRINT CHRé(14): : GOTO 


in 


3600 IF Ci="PR* THEN 330:REMDI 
lDDUPRPENER SNA K3=1 : GOTO 4S0:REHEF 
1010 IF Ci="SD" THEN S70:REMF? 





1020 IF Ci="LD" THEN SOD0:RENMFS 
1030 IF Ci=*LK* THEN 880:REMDE 
1040 IF Ci="SK" THEN 7S0:REMCC 
10650 IF Ci="R" THEN ZE7O:REMII 
LS CNE SR RE EU Ne DEMSS 
1070 IF Ci="s" COTO 6840:REM38 
1080 IF Se : END:REMAS 
gsf 


1090 GOTO :RERSF 

1100 FRINT NOMBRE GE CARACTERES PAR LIGNE ="]J 
STRINGSIJIL+1:533) : CS=C:REM64 

1110 IP=JP : PRINT “NOMBRE DE LICNES PAR PAGE ="JP: : INPUT IP : 


INPUT JL : Ce 


[ 
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IF IP<=M AND Ci="C" PRINT ‘*# IMPOSSIBLE DE CONTINUER" : GOTO ii 
iD:REMIS 
4120 IF IPXME PRINT “#" ME LIGNES MAXIMUM SVP" : GOTO 1110:REME 
1130 JP=IP : PRINT "ECRIVEZ VOTRE TEXTE :" : RETURN:REM22 

1180 C2="" : INPUT “FAUT-IL NUMEROTER LES LIGNES (O/N) "3 C2 : I 
F C2="0" Ki=1:REMAS 


1150 RETURN:REMEC 


Exemple de lancement (menu principal) 









HA CHINE A ECRINE 

MEMO : R PAG 

> OUe= EF ION FLECHE 

+ OÙ ÿ = AV EN SHIFT) CAR. 
{ENTER OBL 

POUR UNE LI 

FOUR TERMINER U 

EN COURS DE LECTURE: <ESPACE>=GEL AFFICHAGE: €S5>=STOP LECTURE 

4 = MEMO ; N = NOUVEAU TEXTE CONTINUER TEXTE » R = RELIRE 


} Ie 


pri 
l 


? 

MODIFIER 7 I = INSERER 3: S SUPPRIMER : FR = IMPRIMER 

PSE SETRESUNSTESTRE RETIRE RUE = SAUVER LE TEXTE SUR DISQUE 
MAN ETRPNUIRNERNTEREURSRTONESR UVERSÉESTIENTERSURARTZS EN 
NME SORT CNE TSNNENRREEUSS) ERREUR <BREAK3 COTO 250 
tr Er etre es PORT RSD NE R TENTE 


T> 


LL 
LL 
cr al 
AI Qi ET OA II 


1 
9 11 H 





Roger Brousmiche 





bricolage 


»Ouvrez votre modele 1 
sur le monde exterieur 


L'extension que nous vous proposons aujourd'hui de 
commencer à réaliser se décompose en deux phases : 

un premier circuit imprimé relié au BUS du TRS va 
d'abord vous permettre de "converser" en mode paral- 
lèle sur ?24 bits avec le monde extérieur grâce à un 
contrôleur programmable très puissant : le 8255 d' 
Intel. Cette première étape vous permettra pas exem- 
ple d'allumer des diodes "led", de lire des contacts 
ou de commander des relais. Bref, toutes sortes d'ap- 
plications en perspective ! Dans une prochaine étape, 
nous décrirons l'une de ces applications : un brûleur 
d'EPROM qui se raccordera à la première carte et qui 
vous -dennera la possibilité d'écrire vous-même vos 
propres mémoires EPROM ou de modifier celles qui exis- 
tent (générateur de caractères ou PROM BASIC par exem— 
ple). Pour l'instant, voici déjà le circuit imprimé 

de la première carte que vous aurez tout le temps de 
réaliser en attendant le prochain numéro. Vous pou- 









- 


cote soudure 


je] 


» 
Go 


l 


I 


CR 


7 
vez pour cela utiliser du "film contact positif" pour u 


prélever le circuit directement à partir de la revue. 
A bientôt ! 





NOTA : Attention, il faut sur le circuit lire "AI" 


et non "AO" et réciproquement. Josué Bonifas 
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essal logiciel 


NEHO05/8 


APPARAT, INC. 
VERSION 2.8 
MODEL 1 





NEWDOS 80 
version 2 : 
quoi de plus 


(1) 





Cet article s'adresse tout particulièrement aux uti- 
lisateurs TRSDOS du modèle 1 ainsi qu'à tous ceux 
qui se demandent ce que les disquettes apportent de 
plus.par rapport aux cassettes. 


Les utilisateurs de TRSDOS trouveront ici la descrip- 
tion d'un système plus rapide. plus fiable, plus com- 
plet et qui offre des possibilités totalement nou- 
velles. 


Les possesseurs de cassettes qui hésitent encore à 
élargir leur configuration, trouveront un résumé des 
facilités offertes par les systèmes à disquettes, 
dont les possibilités sont beaucoup plus étendues 

et l'accès aux fichiers plus rapide. 


Les possesseurs du modèle 3, qui disposent d'un 
TRSDOS plus confortable, peuvent trouver dans NEWDOS 
80 un SED (Système d'Exploitation de Disquettes) ap- 
portant des avantages supplémentaires en plus d'une 
compatibilité avec les disquettes NEWDOS80 du modèle 
1. Bien que les modèle 1 et 3 diffèrent par certains 
points (densité des disquettes par exemple), NEWDOS 
80 permet en effet de "transporter" facilement les 
programmes d'un système à l'autre, ce qui n'est pas 
le cas avec TRSDOS. 


En passant d'une configuration cassettes à une con- 
figuration disquettes, on a le sentiment d'avoir af- 
faire à un ordinateur tout à fait différent, telle- 
ment plus rapide et plus facile à utiliser. Ceci est 
dû au moins autant aux nouvelles fonctions apportées 
par TRSDOS qu'à la possibilité de stocker et de re- 
lire sans manipulations, les données et les program- 
mes en quelques secondes, au lieu de plusieurs minu- 
tes. 


NEWDOS80 Version 2 permet de faire un pas presque 
aussi sensible grâce à l'accroîssement de la vitesse, 
du volume du stockage et des extensions logicielles 
et matérielles qu'il apporte ou rend possibles. 


Une syntaxe simplifiée facilite et accélère le dia- 
logue avec la machine. De nombreuses extensions lo- 
gicielles qui existaient sous forme de routines sé- 
parées, ("driver" clavier avec antirebonds, minus- 
cules, répétition, interdiction de la touche Break, 
extensions du BASIC, chaînage automatique de fonc- 
tions, etc...) existent dans NEWDOS80 de manière 
standard. Nul besoin de s'occuper de leur chargement 
ou de la protection de la mémoire. t ensemble est 
complété d'un certain nombre de programmes de servi- 
ce tels que : assembleur, copie de cassettes, etc. 


Ce SED est conçu pour tirer parti de diverses pos- 
sibilités d'extensions matérielles : disquettes à 


plus grande capacité de stockage, temps d'accès plus 
courts, double densité, double face, unité 8 pouces, 
horloge rapide, ou les minuscules déjà nommées. 


Vous découvrirez peut-être même que les unité de 
disquettes que vous possédez sont capables de gérer 
jusqu'à 40 pistes (voire 41, 42 et plus). De même, 
elles reuvent souvent fonctionner avec des temps 
d'accès plus courts. Tandy, s'étant approvisionné à 
diverses sources pour ses disquettes, s'est contenté 
d'un SED capable de fonctionner sur le standard le 
plus bas. 


COMPATIBILITE AVEC TRSDOS 


NEWDOS80 est capable d'exécuter directement les pro- 
grammes BASIC et de lire les fichiers TRSDOS ; les 
programmes ou routines assembleur écrits pour le 
système de Tandy fonctionnent à quelques exceptions 
près, ou peuvent être adaptés. 


La syntaxe et les fonction d2 TRSDOS et du BASIC 
associé restent pratiquement valides. Bien entendu, 
étant donné que NEWDOS80 se montre moins pointilleux 
sur la syntaxe et possède de nombreuses fonctions 
supplémentaires cette compatibilité ne peut pas jouer 
dans le sens NEWDOS vers TRSDOS, pour peu qu'on uti- 
lise les nouvelles possibilités offertes. 


DES UNITES DE DISQUETTES PLUS PUISSANTES 


NEWDOS80 accepte la connexion simultanée de diffé- 
rents types de disquettes, simple ou double face, 5 
ou 8 pouces, ces dernières nécessitant toutefois 
l'adjonction d'un circuit spécial (voir "mapper", 
TRACE n° 1). Le nombre de pistes qui peuvent être 
traitées va de 35 à 80, ce qui permet l'utilisation 
de tous les lecteurs de disquettes actuellement pro- 
posés. 


Nous avons signalé que certaines unités 5 pouces 
peuvent fonctionner plus rapidement que prévu sous 
TRSDOS, cette variation de vitesse provient de deux 
facteurs, le temps de mise en route du moteur et le 
temps de déplacement de la tête de lecture. Le temps 
de mise en route d'une demi-seconde prévu par NEWDOS 
80 s'avère suffisant dans la plupart des cas, sinon 
vous pouvez revenir à une seconde comme pour TRSDOS. 
Le temps de déplacement "piste à piste" de la tête 
est normalement fixé à LO ms. Avec NEWDOS80 vous 
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pouvez tenter 20 ms. Si tout va bien essayez 10 ms. 
S'il n'y a toujours pas de problème, faites un der- 
nier test avec 5 ms pour vérifier si vos unités de 
disquettes peuvent fonctionner à la vitesse la plus 
élevée prévue. 


LA DOUBLE DENSITE 


Percom, LNW et d'autres sociétés proposent des car- 
tes double densité-(notamment Tandy aux Etats-Unis!} 
Ces cartes d'enfichent dans l'interface d'extension 

à la place du circuit contrôleur de disquette d'ori- 
gine ; ce circuit est ensuit réinséré sur la carte 
double densité pour maintenir la possibilité de trai- 
ter des disquettes simple densité. Ces cartes sont 
généralement proposées avec des modifications pour 
TRSDOS ou avec un SED spécial. Mais si vous êtes dé- 
jà habitué à NEWDOS80 ou si vous voulez évoluer vers 
ce système, aucun problème : il accepte la double 
densité. Si vous avez choisi la carte 5/8 de LNW vous 
pouvez même faire fonctionner des unités 8 pouces en 
double densité. Attention, cela nécessite une modi- 
fication qui n'est pas fournie avec la carte. 


Une carte double densité augmente le volume stocké 
sur une disquette de 80% et réduit le temps de lec- 
ture dans la même proportion. Elle coûte environ la 
moitié du prix d'un drive 35 ou 40 pistes et écono- 
mise des disquettes, c'est assurément une bonne af- 
faire. 


En utilisant les possibilités de NEWDOS au maximum 
il est possible de mettre 2.800 K en ligne qui sont 
à comparer aux 320 K du TRSDOS. 


LE "DRIVER" MINUSCULES 


Une amélioration connue et même assurée par Tandy 
est l'accès aux caractères minuscules. Elle nécessi- 
te une modification du matériel et l'utilisation 
d'une routine logicielle, le "driver" écran de la 
ROM n'étant pas prévu pour afficher les minuscules. 
Tandy ou d'autres sources vous fournissent un "dri- 
ver" qui est à charger en mémoire haute après pro- 
tection de celle-ci. NEWDOS80 possède un driver mi- 
nuscules incorporé qui s'active automatiquement 


- si vous en avez décidé ainsi à la génération de 
votre système 

- si votre ordinateur possède l'adaptation minus- 
cules et si elle est activée (dans le cas d'une 
modification contrôlée par un interrupteur). 


Quand ce "driver" est actif, l'ensemble écran/cla- 
vier fonctionne comme une machine à écrire, il faut 
appuyer sur Shift pour avoir les majuscules. Si né- 
cessaire, on peut bloquer l'ensemble en majuscules 
ou désactiver complètement ce driver. Le cas échéant 
NEWDOS80 accepte les commandes DOS en minuscules. 


PLUS VITE, TOUJOURS PLUS VITE ! 


Une autre amélioration acceptée par NEWDOS80 est 
l'augmentation de la vitesse d'exécution du proces- 
seur. En effet le microprocesseur Z80 qui forme le 
coeur du TRS80 peut fonctionner à une vitesse supé- 
rieure au 1.77 Mhz prévu par les constructeurs du 
modèle 1. Vous trouvez même à l'intérieur de cette 
machine les circuits nécessaires pour effectuer cet- 
te modification. Il y a en fait deux modifications 
qui sont couramment éffectuées par ceux qui veulent 
un ordinateur qui calcule plus vite que son ombre. 
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La plus simple permet une augmentation de la fré- 
quence à 2.66 Mnz ce qui augmente la vitesse de fonc- 
tionnement de 50 %. Une autre modification un peu 
plus complexe, permet de doubler la vitesse du pro- 
cesseur en lui appliquant une fréquence de 3.54 Mnz. 
Ces modifications fonctionnent parfaitement sous 
NEWDOS80 même pour les accès disquettes. Pour lire 
des cassettes écrites en 500 Bauds il faut cependant 
revenir à la vitesse normale. Pas de problème pour 
l'interface RS232 qui dispose d'une horloge propre. 
On trouve dans le commerce, différents kits qui per- 
mettent ces augmentations de vitesse. 


LES FONCTIONS DE NEWDOS 80 


NEWDOS80 offre un nombre considérable de fonctions 
qui n'existent pas dans TRSDOS. D'autres sont pré- 
sentes dans les deux systèmes, mais certaines de 
celles-ci sont plus complètes dans NEWDOS80 et /ou 
acceptent une syntaxe plus simple. Il existe cepen- 
dant 2 fonctions TRSDOS absentes dans NEWDOS80. Pour 
être complets, commençons notre inventaire pour ces 
deux-là. 


Cette fonction affiche sous TRSDOS, à une vitesse 
qui les rend illisibles, les adresses d'éxécution 
tenues par le registre PC. Ces adresses sont rele- 
vées et affichées à chaque interruption, nul ne peut 
dire combien d'instructions ont été exécutées entre 
deux adresses affichées. Néanmoins, le fait qu'elles 
continuent à apparaître à l'écran permet de savoir 
que l'ordinateur n'est pas en panne ; l'adresse sur 
laquelle l'ordinateur se bloque éventuellement peut 
apporter une information utile (bien que parfois 
trompeuse dans le cas d'un "plantage" du sous-pro- 
gramme de gestion de l'interruption...). 


Sous NEWDOS80 vous pouvez faire clignoter le curseur 
pour indiquer que l'ordinateur est toujours en vie. 


Quant à la trace, le moniteur DEBUG de NEWDOS80 per- 
met l'utilisation d'un pas-à-pas véritable. 


DEVICE 


Cette fonction du TRSDOS affiche à l'écran le nom 
des organes périphériques de l'ordinateur : KI - 
clavier, DO = écran, PR = imprimante. On se demande 
toujours à quoi sert ce message qui ne varie jamais 
quels que soient les périphériques connectés. 


LES FONCTIONS COMMUNES AUX DEUX SYSTEMES 


Visiblement l'absence des deux fonctions ci-dessus 

ne représente pas une perte irréparable. Voyons main- 
tenant les manières différentes dont sont traitées 
les fonctions présentes dans les deux systèmes. 


AUTO 


La commande AUTO de TRSDOS n'accepte qu'un paramètre. 
Sous NEWDOS80 plusieurs ordres, jusqu'à 31 caractè- 
res, sont possibles. Ceci permet de charger plusieurs 
routines puis un programme principal, ou de charger 


le BASIC et de démarrer automatiquement 


avec ! 
gramme Menu. Il est même possible d'exécuter des sé- 
quences de JCL (Langage de contrôle des Enchaîne- 
ments) à l'aide des fonctions CHAIN ou DO que nous 


verrons plus loin. 


ATTRIB 


Le NEWDOS80 accepte toutes les options d'attribut de 
fichier du TRSDOS et ajoute quelques possibilités 
supplémentaires telles que la permission ou l'inter- 
diction d'étendre ou de réduire la taille d'un fi- 
chier ou la disposition d'un indicateur de mise à 
jour. 


BASIC2 


Cette fonction s'avère en tous points identiques 
dans les deux systèmes. 


CLOCK, VERIFY 


La syntaxe NEWDOS80, CLOCK Y ou N semble plus simple 
que CLOCK (ON) ou (OFF) utilisée dans TRSDOS. 


Par ailleurs la fonction COPY de NEWDOS80 est plus 
complète et offre les possibilités suivantes 


COPY 


La fonction COPY de TRSDOS permet la copie d'un fi- 
chier vers un autre avec la mention complète du nom 
du fichier d'entrée et du fichier de sortie. Sous 
NEWDOS80 si les deux noms sont identiques, on peut, 
au contraire, écrire 

COPY FILE/EXT:0 TO :1 
pour recopier le fichier FILE/EXT de la disquette 0 
sur un fichier de même nom existant ou à créer sur 
la disquette 1. 


- copie simple fichier à fichier ; 

- copie avec un seul drive, de fichiers entre 
différentes disquettes dont éventuellement au- 
cune ne contient un système ; 

- copie complète d'un disque par pistes (remplace 
le BACKUP) mais fournit un grand nombre d'op- 
tions supplémentaires ; 

- copie complète d'une disquette, par fichier 
pour faire des copies entre disquettes de types 
différents ; 

- copie de séries de fichiers sélectionnnés auto- 
matiquement sur des critères tels que 

. fichiers système 

. fichiers utilisateur 

. fichiers avec une extension donnée 

. fichiers ayant subi une mise à jour 
fichiers dont les noms sont inscrits dans 

le fichier X 

. fichiers dont les noms ne sont pas ins- 
crits dans le fichier X 

. copie sélective conditionnée par une ré- 
ponse de l'opérateur qui répond Y(es) ou 
N(o) pour chaque fichier. 


Sous NEWDOS on peut en plus, lorsque ces commandes 

ne sont pas suivies d'une date, ou d'une heure, ob- 
tenir l'affichage de la date (ou de l'heure) du mo- 
ment . 


Cette fonction permet dans les deux systèmes d'ap- 
peler le moniteur langage machine. Sous NEWDOS80 la 
fonction de la touche BREAK n'est pas affectée, le 
moniteur est activé ici par l'appui simultané sur 
les touches 1, 2 et 3. En plus de cela, le DEBUG de 
NEWDOS80 possède des formats d'affichage plus com- 
préhensibles, des fonctions d'édition plus pratiques. 
des fonctions supplémentaires de trace, de recherche 
et d'accès disquette... 


DIR 


Cette commande peut être tapée avec ou sans les deux 
points avant le numéro de disquette. Les paramètres 
ne demandent pas à être mis entre parenthèses. Il 
existe des options supplémentaires. DIR #0, utile 
pour ceux qui ne possèdent qu'un drive, permet de 
mettre une disquette sans système à la place de NEW- 
DOS80 pour en afficher le catalogue. Le paramètre 
"p" permet de lister le catalogue des fichiers sur 
l'imprimante. 


DUMP 


Cette fonction aussi est plus complète sous NEWDOS- 
80. Il est possible de "dumper'" une copie exacte 
d'une zone mémoire sur disque. Un paramètre "reloca- 
te address" permet de spécifier une adresse de char- 
gement différente de celle affectée au programme. 


Quant à la syntaxe, jugez vous-mêmes : 


TRSDOS : DUMP nom (START-X' aaaa', END=X' bbbb', 
TRA=X' cecc') 


NEWDOS : DUMP nom, aaaaH, bbbbH, ccccH 


Sous TRSDOS les adresses doivent obligatoirement 
être exprimées en hexadécimal. NEWDOS80 admet en 
plus la forme décimale. 


KILL, LIB, LOAD, RENAME 


Aucune différence entre les deux systèmes. 


LIST, PRINT 


Ces commandes permettent avec NEWDOS80 la spécifica- 
tion d'un numéro de ligne de départ et/ou d'un nom- 
bre de lignes à lister, ceci indépendamment du fait 
que les lignes soient effectivement numérotées ou 
non . 


PROT 


Sous NEWDOS80 cette commande permet en plus des 
fonctions présentes sous TRSDOS, le changement du 
nom ou de la date d'une disquette. Pour cette com- 
mande aussi, NEWDOS80 renonce à l'utilisation de 
parenthèses pour délimiter les paramètres, ce qui 
réduit le nombre de caractère à frapper et par là, 
le risque d'erreurs. 


La suite dans le prochain numéro 





Wolfgang Lauter 
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bricolage 








Un vu-mètre 
pour régler 


votre magnétophone 


LL 
METRE 


Les utilisateurs de cassettes sur modèle 1 ne me con- 
trediront pas : la lecture d'un programme ou de don- 
nées par le magnétophone est souvent une opération 
aussi aléatoire qu'un RND(X)...! 


Après chaque échec, commence le jeu des énigmes : le 
niveau était-il trop bas ? ou trop élevé ? les têtes 
étaient-elles propres ? 


Pour y voir clair, il est indispensable de disposer 
d'un appareil de mesure du niveau communément appelé 
VU-METRE. 


Le petit circuit schématisé ci-dessous affiche sur un 
microampèremètre, le niveau crête-à-crête des impul- 
sions à la sortie 'EAR' du CTR80 (ou similaire). 


Afin d'assurer la transmission simultanée du signal 

de sortie vers l'ordinateur et vers le VU-METRE, il 

faut préalablement connecter à cette borne 'EAR', un 
adaptateur en Y pour jack de 3.5 m/m. 


Les 2 diodes marquées GE dans le schéma sont des dio- 
des au germanium de type quelconque : 0A9O, AA119, 
AA7Z15, 1N60, etc. 

Ne pas utiliser des diodes au silicium ; leur poten- 
tiel de contact est trop élevé. 


Pour étalonner l'appareil, il suffit de faire tourner 
le programme suivant, sans cassette, mais avec le ma- 
gnétophone sur RECORD (il faut soulever manuellement 





20/10û 


micros 


le cliquet d'interdiction d'écriture). 
18 PRINT#-1,; : GOTO 19 


Ensuite, règlez la résistance variable de 50K pour 
une déviation de l'aiguille du microampèremètre égale 
à 60 % du fond d'échelle. Appuyez ensuite sur € BREAK). 


Vous pouvez maintenant faire CLOAD sur un programme 
quelconque, et règler le volume pour rétablir la même 
déviation et dès cet instant, vous aurez la solution 
des énigmes du début ! 


Vous remarquerez que le niveau de lecture n'est pas 
aussi stable que celui d'écriture, loin s'en faut. 
Des fluctuations sont essentiellement fonction de la 
qualité de la bande utilisée. 


En général, le modèle 1 accepte des variations de ni- 
veau de +/- 6dbs autour du niveau nominal de 2.2volts 
crête-à-crête, c'est-à-dire qu'il n'y a pas perte de 
données tant que l'aiguille ne descend pas en dessous 
de 30 % du fond d'échelle. 


Vous compenserez les fluctuations par un recentrage 
du volume, ce qui vous permettra de récupérer des 
programmes auparavant illisibles. 


Plus important encore, vous disposez maintenant d'un 
véritable banc d'essai pour le contrôle de qualité 

de bandes d'origines diverses... je vous garantis des 
surprises ! 


——____—_———————————_————————— ]]]. .. -Foger Brousmiche 
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utilitaire 





Des ou!i:s pour votre 
programmation 





Vous avez été nombreux à nous réclamer le programme 
BASPY, eh bien voici pour commencer sa documentation 
(il faut bien commencer par quelque chose !} en at- 
tendant sa liste dans le prochain numéro. Toutefois, 
les lecteurs ayant commandés la disquette TRACE nu- 
méro 5 n'auront pas à attendre plus longtemps puis- 
que le programme y figure déjà. 


BUT DU PROGRAMME 


BASPY (contraction de : BAsic SPY ou espion BASIC) 
est un programme écrit en LANGAGE MACHINE (bien que 
chargé comme un programme BASIC standard) permettant 
de disposer instantanément par un code clavier d'un 
certain nombre de FONCTIONS utiles 


DUMP mémoire sous forme hexadécimale et ASCII, 
défini par deux bornes, 

CONVERSION décimal/hexa et hexa/décimal, 

EDITION mémoire (lecture/écriture), 

RECHERCHE entre deux bornes de la mémoire, d'une 
configuration exprimée sous forme d'une chaîne 
hexa ou ASCII, 

RETOUR au BASIC au point EXACTEMENT interrompu. 


e 


CONFIGURATION 

De part sa constitution, BASPY est auto-protégé (pla- 
cé avant le buffer BASIC dans la mémoire) ce qui per- 
met de laisser libre l'espace s'étendant jusqu'en fin 
de mémoire (pas de MEMORY SIZE à définir) et d'éviter 
ainsi la multiplicité des versions (16K, 32K et BK) 
sur modèle 1 comme sur modèle 3. 


De même en version disque, le programme lors de son 
chargement s'implante automatiquement en fonction du 
nombre de buffers réservés aux fichiers disque et est 
compatible avec les différentes versions actuelles 

de DOS : TRSDOS, NEWDOS, NEWDOS-80 et LDOS. 


QUELQUE SOIT VOTRE CONFIGURATION (CASSETTE, DISQUET- 
TE, TAILLE MEMOIRE, SYSTEME D'EXPLOITATION), IL N'E- 
XISTE QU'UNE SEULE VERSION DE BASPY... 


CHAMP D'OPERATION 

Ce programme qui peut coexister en permanence avec 

‘ l'interpréteur BASIC, est destiné à faciliter la mi- 
se au point des programmes en fournissant un LIEN di- 
rect avec la mémoire, et peut se réveler être un ou- 
til didactique permettant de mieux saisir les échan- 
ges entre le BASIC et la machine. 


Bien sûr, il est toujours possible de programmer en 
BASIC sans savoir exactement ce qui se passe dans la 
mémoire de l'ordinateur ! Ce programme s'adresse à 
celui qui veut en savoir plus... 


Prenons quelques exemples : 


10 A$ = "BONJOUR" : A$ = A$ + "MONSIEUR" 
Où se trouve localisée la chaîne "BONJOUR MONSIEUR" 


en mémoire ? L'ordre recherche de BASPY fournira la 
réponse. 


20 AS=MRRRRRRANEEEREEERREHAN 


Si cette chaîne èst destinée à recevoir une routine 
binaire (génération d'un son, par exemple), les co- 
des correspondants pourront y être placés facilement 
par BASPY (fonctions Dump recherche et édition), sans 
devoir utiliser pour cela la technique des POKE, DATA 
et VARPTR. 

Nous savons que le début du buffer BASIC est pointé 
par l'adresse mémoire 4O0A4/UOA5. Mais combien cela 
fait-il en décimal ? Vous avez spécifié un "MEMORY 
SIZE" de 42000, par exemple. Combien cela fait-il en 
hexadécimal ? La fonction conversion vous donnera im- 
médiatement ces réponses. 


Lorsque vous frappez la ligne : 20 PRINT A$ : GOTO 10, 
savez-vous comment ces informations sont codées dans 
le buffer BASIC ? La fonction dump vous renseignera 
sur le champ. ; 


MODE DE CHARGEMENT DU PROGRAMME BASPY 


Sous BASIC, frapper la commande de chargement : 


CLOAD (en version cassette, suivi de : RUN) 
RUN "BASPY/BAS" (en version disque) 


Si vous essayez de LISTER le programme (avant le RUN), 
vous verrez un "tas de choses bizarres" sur l'écran... 
Cela est tout-à-fait normal et est dû à la nature 
mixte (binaire/BASIC) du programme. 

Si le programme est correctement exécuté, l'écran 
doit s'effacer et le message : READY doit apparaître. 
A partir de ce moment, vous pouvez charger un autre 
programme BASIC en mémoire, et travailler normalement. 


APPEL BASPY 


A n'importe quel instant, que ce soit pendant l'exé- 
cution d'un programme BASIC, pendant son LISTage ou 
au niveau "READY', i1 suffit d'appuyer sur les tou- 
ches SHIFT et M (ou m si votre système possède les 
minuscules) pour se ‘connecter! au programme BASPY. 
Celui-ci affiche alors un message de titre suivi de: 


COMMANDE ? 


A cette question, six réponses sont possibles (en 
majuscules) 


D (dump) 

(conversion) 

(édition) 

(recherche) 

(retour BASIC au point interrompu) 
(retour BASIC avec deconnexion de BASPY) 


Oowu2mQ 


Les deux dernières réponses ne provoquent aucun affi- 
chage, et le contrôle est rendu à l'interpréteur BA- 
SIC au point interrompu. Les commandes D, C, E et R 
provoquent l'affichage de la lettre correspondante 
suivi d'un espace. 
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FONCTION DUMP 

Une fois sélectionnée, cette fonction attend une ou 
deux adresses exprimées sous forme hexadécimale (de 
O0 à FFFF) et séparées entre elles par un espace ou 
une virgule, le tout terminé par la touche ENTER. 
Exemples 


D O 100(enter) : dump hexa/Ascii de la zone mémoire 
comprise entre les adresses 0 et 100 
(hexa). 

dump mémoire à partir de l'adresse 
OA. 


D 4OAk(enter 


(La touche ‘flèche à gauche' peut être utilisée pour 
corriger une erreur de frappe). 


Dans le second exemple, si l'on ne désire afficher 
qu'une seule ligne, il suffit de terminer la comman- 
de par la touche ‘flèche en bas' au lieu du ‘enter' 
habituel. 

En cours d'affichage, le premier appui sur la barre 
ESPACE provoque l'arrêt du dump. Chaque appui supplé- 
mentaire affichera la ligne suivante. Un appui sur 
"ENTER! relance le dump de façon continue. Un appui 
sur 'BREAK' force un retour au niveau ‘COMMANDE ?'. 


Dans la zone ASCII du dump (partie droite), les codes 
non-imprimables sont remplacés par un point (.). 


FONCTION CONVERSION 


Cette fonction attend une valeur hexadécimale ou dé- 
cimale pour la convertir dans la base opposée. Afin 
de distinguer l'hexadécimal du décimal, cette derniè- 
re représentation doit être précédée du signe '+'. 
Exemple 


C EA460 : donne la valeur décimale 60000 
C +60000 : donne la valeur hexadécimale EA60 


Les valeurs hexadécimales seront comprises entre 0 
et FFFF alors que les valeurs décimales seront com- 
prises entre 0 et 65535. 


FONCTION EDITION 


Cette fonction attend une valeur d'adresse exprimée 
sous forme hexadécimale. Après appui sur la touche 
'enter', cette adresse est affichée suivie de l'octet 
hexadécimal contenu à cet emplacement. 

L'appui sur la touche 'enter' ou ‘flèche en bas' pro- 
voque l'affichage de l'adresse suivante et de son 
contenu. 


Dans le cas où l'une de ces touches est précedée de 
l'entrée d'une valeur hexadécimale sur un octet, cet- 
te dernière vient remplacer la valeur affichée, à 
condition que cela soit possible (mémoire vive). 


COMMANDE 
AOOG: 

AOG1 
AO002 


AOGZ 


AG #4 
AGGS 


## nu %e uu 


AÛGé 


8OO7: 


AO : &)8ràassé 
A0: O0000000 
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00060000 
OD0000000 


äo20: CO0G0000 


La touche ‘break' interrompt le mode édition et pro- 
voque un retour au niveau COMMANDE ?'. 


FONCTION RECHERCHE 


Cette fonction attend trois valeurs qui sont succes- 
sivement : 
l'adresse mémoire hexa de début de recherche 
l'adresse mémoire hexa de fin de recherche 
la valeur à rechercher dans la zone ainsi définie. 


La valeur à rechercher est une chaîne (limitée à 30 
caractères) et exprimée sous forme hexadécimale (nom- 
bre pair de digits) ou ASCII. Dans ce dernier cas, 

la chaîne devra être entourée des caractères ‘"'. 
Exemples : 


R O 2FFF "MEMORY SIZE" (recherche d'un texte dans 
la ROM de l'interpréteur). 
R 4000 8000 C3CD243E12 (recherche d'une séquence 
* donnée dans l'espace 4000 à 
8000). 


Cette fonction affichera toutes les adresses compri- 
ses dans l'espace défini, contenant la chaîne recher- 
chée. Comme pour la fonction dump, il est possible 
d'arrêter l'affichage en pressant la barre d'espace, 
et de le continuer en pressant sur ‘'enter'. La tou- 
che 'break' a le même effet que précédemment. 


FONCTIONS DE RETOUR AU BASIC 


Ii y en a deux : B et Q. La première permet un retour 
au BASIC au point interrompu, en se réservant la pos- 
sibilité de revenir à BASPY par le code SHIFT M (ou 
m). 


La seconde ne permet plus de revenir dans BASPY qui 
est alors déconnecté (retour au DOS par exemple, dans 
le cas d'une configuration disque. 


AVERTISSEMENT SUR LA SYNTAXE 


Afin de réduire l'espace mémoire occupé par BASPY, 
certains contrôles portant sur la syntaxe des comman- 
des ne sont pas effectués. Soyez donc prudents lors 
de l'introduction des commandes, et ne mettez pas 
plus d'espaces qu'il n'en faut... 


Et maintenant, essayez la chose suivante : 

Après avoir lancé BASPY, chargez un programme BASIC 
et listez-le (commande LIST). Pendant la liste, ap- 
puyez sur SHIFT M.... Le contrôle est donné à BASPY. 
Exécutez une fonction quelconque, et retournez au 
BASIC : le listage du programme se poursuivra là où 
il a été interrompu. 
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utilitaire 


# Gardez trace, 


eo “ 
°* 








de l'usage = .: .» 
* de vos variables 





REFERENCES CROISEES (Modèle 2) 


Parmi les utilitaires dont les possesseurs de Modèle 
2 souhaiteraient disposer, figure en bonne place un 
générateur de références croisées. 


Cette fonction permet de rechercher et de lister les 
endroits où sont appelés les numéros de lignes et les 
variables d'un programme. 


On peut réaliser une telle fonction selon 3 méthodes 
différentes : 


1 - Utilisation du Fichier Programme sous sa for- 
me ASCII ; 

2 - Utilisation du Fichier Programme sous sa for- 
me CONDENSEE ; 

3 - Analyse du programme résidant en mémoire. 


La méthode 1 est moins tributaire que les deux autres 
des particularités du BASIC concerné. 


Les méthodes 2 et 3 sont plus rapides. 
La méthode 3 est la plus logique bien qu'il faille 
ouvrir 2 fichiers. 


La méthode 2 présentée ici nécessite que votre Modèle 
2 soit muni de la fonction PEEK. 


Le PATCH suivant vous donnera PEEK et POKE (en vous 
retirant OCT$ et NAME). En ce qui concerne OCT$ la 
perte est peu importante. Pour NAME, il existe des 
solutions de remplacement. 

Pour tous détails sur PEEK et POKE se référer aux 
manuels du Model I Level 2, ou à celui du Modèle 3. 


Précisons simplement la syntaxe de base : 


PEEK (adresse entière d'un octet), valeur ASCII con- 
tenue. 


PATCH BASIC A=67F3, F=AFCD8761, C=CDDD3CD5 
PATCH BASIC A=67F7, F=C5CD7166, C=E72CCDEA 
PATCH BASIC A=-67FB, F-E741E753, C=3CD112C9 
PATCH BASIC A=67FF, F-E3011E00, C-CD5D4UT7E 
PATCH BASIC A-6803, F-094h4UD, C=C3FB3A 
PATCH BASIC A=28FB, F-CE414D, C=DO4FAB 
PATCH BASIC A=2405, F-CF435424, C=DO4515UB 
PATCH BASIC A=S5ADB, F=CDBAUE, C=C3FF67 


Une fois ce PATCH fait, il ne reste plus qu'à reco- 
pier le programme REF/BAS et à le stocker sous for- 
me ASCII. 

On l'appelle ensuite par "MERGE" à la fin du program- 
me concerné et on le lance par RUN60000. 


Notons que REF/BAS est capable de fournir sa propre 
référence croisée. On peut, soit faire un "RENUM", 
soit à la ligne 60030, remplacer (en mémoire, de pré- 
férence) 60000 par 65000. 


48 - TRACE N°5 - Avril 1983 


LE PROGRAMME 


Le programme présenté a pour objet d'écrire sur dis- 
quette des enregistrements de 12 octets convenable- 
ment renseignés et formattés. Le fichier ainsi obte- 
nu est ensuite repris par un programme de tri et un 
programme d'édition. 

Cette façon de procéder permet le traitement de gros 
programmes. Le format de l'enregistrement est illus- 
tré par les exemples suivants 


--60070.. 
AD$....150-T (-T signifie : variable longue 
ZZ#()15000.. (ADEMAI$) tronquée) 


RE!()45600-T 


POINTS PARTICULIERS 


Le programme REF/BAS sait distinguer les différentes 
variables figurant dans une ligne comme celle-ci 


100 PRINTAS'"BONJOUR'"'AD$AD'"TOTO"B1 


En effet toute variable est "fermée" par un signe 
spécial, c'est-à-dire autre que lettre ou chiffre. 


L'instruction FIELD présente la caractéristique d'u- 
tiliser le mot AS qui n'est pas un mot réservé. On 
supprime donc ces 2 premières lettres des noms de 
certaines des variables se trouvant dans le champ 
d'influence d'un FIELD. 

Mais attention le test ne peut se faire sur la pré- 
sence des lettres AS en tête de variable. 

En effet ceci est-licite.: 


100 FIELD 1, (AS) AS AS$(AS) 


Ecriture retardée 


On ne peut pas "fermer" immédiatement les variables 
CA LIEN = 

En effet, elles sont susceptibles d'être logiquement 
terminées par une parenthèse gauctie. L'ennui est qu'un 
certain nombre de blancs (ou assimilés) peuvent être 
intercalés. 

Ainsi ceci est licite : 


100 A D $ ( 3 )="BONJOUR" 
200 PRINTA D$(3) 


Lignes référencées 


On les distingue des constantes numériques, en posi- 
tionnant à 0 la variable NU, lors du passage des ca- 
ractères réservés ad hoc (Notons que M"RESTORE No de 
Ligne" fonctionne, bien que le manuel n'en parle pas). 


Utilisation du Buffer de Fichier 


Elle pe 
fonctio 
permet 


minimum. 


Structu 


On peut 
en calc 
te, et 
d'un co 


sa0aû 
SGGDE 
ÉRIA TES 
21 
Ce 174 D] 
60030 
60040 
£aas5 a 
682:@ 
6407a 
LOGE 
£40a?7a 
&@1:QQ 
68110 
68120 
68130 
60140 
60150 
601608 
£6à170 
60182 
5815 
40:00 
68:1@ 
687;2:0 
60:30 
60240 
£48250 
60:60 
60:70 
68780 
60:90 
68528 
68310 
40320 
60338 
60340 
68350 
603450 
60370 
60380 
60350 
68400 
60410 
60420 
60430 
60440 
60450 
6043650 
68470 
68480 
6470 
60500 
68510 
605 :0 
60530 
60540 
60550 
60560 
60570 
60580 
460550 
60600 
68610 
606:0 
68630 
6064û 


rmet d'éviter en grande partie le recours aux Néanmoins, il faut noter que les gros programmes ne 
ns habituelles de traitement des chaînes et comportent pas de REMarques. 
de traiter de gros programmes avec un CLEAR 


Lourdeurs et inélégances 


re du programme Paie ; ; 
Nous en avons laissé subsister un certain nombre. 


En effet vous avez, comme moi, remarqué combien les 


réaliser ce programme un peu différemment, programmeurs chevronnés sont frustrés lorsqu'on leur 
ulant par avance l'adresse de la ligne suivan- propose un programme ne comportant pas les possibili- 
en sautant à celle-ci lors de la détection tés d'amélioration permettant à leur talent de s'exer- 
de 144 ( REM ). cer dans toute sa splendeur... 

RÉRABOS IEEE Auteur : Eernard BESSE —-— 
4 EE Gr à 
b 83-01-04 
CLEARECLS: DEFINTA-Z:ON ERROR GOTO 61850 
HI#=TIMES 
VR=-1:FA=Q:MX!=6020@0 


Vä=@: NU=-1: E=û: RIT=FA‘: FD=F4: LE=FA: RM=FA: GB=FA: JJ=Q 
CES=CHRS (2) 2HME=CHRS (20) :ELS=CHRE (29) 2ESS=CHRS (24) ILNS=" 12345" IN5$S=" 12345" 
PRINT CES 


DATA 138, 147, 199: 146, 159, 141, 159, 161, 58, -i (2 
RESTORE 40080 & 

FOR K=1 TO ZSS:READ C:IF C>=@ THEN NEXT K 

NR=K—1:NRS=STRINGS(NR, "N"):RESTORE 40080 & 
FOR Kzi TO NR:READ C:MIDS{NRE, Ko 1) =CHRS(C) INEXTK & 
*-goto-gosub-then-else-resume-restore-on-/-field-":" / 

LS'=PEEK( 11087) +ZS6*xPEEK(11088) e 

IF LS'>32767 THEN LS=LS'-65536 ELSE LS=LS! & 
FRINT'Deb PGM en'";LsS! & 

FRINT É 


FOR K=G TO 15 

IFLS'<427714 THEN PRINT" DEBUT FAUX — ARRET" :END 
IFLS1527714 THEN 60230 

PRINT Ki" FICHIER(S) RESERVE{S) - DEBUT CORRECT'":PRINT:GOTO 40250 GÆ 
ILS'=LS!-934 

NEXT K 

1IFKFQ THEN 40780 

ONE ER 1 BUFFER AU MOINS — PUIS RECOMMENCEZ" :END 
RÉ Le Fichier 

:KILL'XREF/DON" 

1: AS=<1Z:LR=IZ:OPEN"D",1,"XREF/DON", (LR) 

FIELD 1, (AS) 4S VS 

LSET V$="" 

DIM NI$£{LR): ZNS(LR),ZGE(LR-1) 

FORKR=1ITOLR 

FIELDI:(K—-1)ASTFS$, 1ASNIE(K) 

FIELDI, (K-1)AS2ZG#$(K—1), {LR-(K—-1))4SZNS$S(K) 








NET 

PRES PE EE TE TS Farametres Boucle 
EE LS: Fi=-1: FF=F1: IF DD>FF THEN FF=32767 É 
ST= 1 

RSR Debut Boucle de Traitement E 
:FOR K=DD TO FF STEP ST 


C=PEEK (K) 

IF JJ=4 THEN 6051@ 

JJ=JJ+1:D(JJ)=C 

IF JJ<4 THEN 60870 

IF D{1)=@ AND D{Z)-Q THEN 60890 

LN'=D(3)+256*D(4) 

IF LN!'>=MX! THEN 60890 

RSET VE=STRS(LN'):LSET LNS=ZNS(BS)ILSET V$="":GOTO 60870 
IF Cr0 AND C<:33 THEN 48870 

IF C=34 THEN LB=NOT LB: GOTO 60550 

IF C=144 THEN RM=VR:GOTQ 60350 

IF LE OR RM THEN 60860 

:’Ccontinue] 

ES Ecriture Retardee (Var. # ! % $) 
IF NOT RT THEN 60610 

RT=FA:IF C<>4@ THEN GOSUR 60920:G0T0 68610 

VA= VA+I:LSET ZNS(VA)="()":GOSUE 60920 
nm Tri des Caract. par Categories 
1IF C<é5 OR C>90 THEN 60650 

Pomme Lettres 

VAE VA+I:LSET NI$(VA)=CHRS(C):GOTO 60878 
ee Non lettres 
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6aQs5a 
68669 
60470 
60688 
60558 
£é0733 
£@718 
é87:6 
£87:0 
6074 
6075@ 
éa7ë@ 






60810 
608:0 
60838 
CELTI 
6908435 
saes 0 
60320 
688370 
é085a 
60870 


68900 


68510 
ca: 
60710 
60740 
689756 
6a575@ 
6057@ 
689780 
68990 
£1008 
61810 
61@20 
61030 
6184Q 
6125@ 
61064@ 
61i07@ 
61080 
610978 
61100 
61110 
611:0 
61130 
61140 
61158 
$i1é6@ 
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S7 THERH e071@ 

Chiffres 

IF VArQ THENLAZUR+S ILE NigitaA HREKEN 
IF NUS=Q THENNU=NU+1:LSETHNISCHU)ZCHRE(C 
GOTS 60870 

em dt SPECIAL 
IF NU >Q THEN FSET MS#=26$:NU): 
IF Vé = @ THEN 603: 
mn DÉCO PEN =) ON ROUE: AE DO 
XX=INSTRS 'S!'HZ", CHRESCIOIIIF XX THEN 4@77@ 

IF C=4@ THEN VA=VA+I :LSETINSEVA)=" ) "10010 20300 
SOTS Ge 

5 AHI:LSET NIS{VSA)=CHRE(C) 

#OGO0TC ecGsE:G 


SSECrITUSE 









on et 
RSET 





 SB7ZG:EOTO 40870 








ZZ=INSTRINRS, CHR#{C)) 

IF ZZ=0 THEN NU=NST GR:GOTO <084@ 

IF ZZ<7 THEN NU= G:G0TG 60870 

IF ZZ=7 THEN NU=@: GEB=VR: GOTO 608578 

NU=-1:GB=FASIF ZZ=8 THEN FD=VR :GOTO 60870 ELSE FL=FAIGOTS 6087@ © 
IF C=Q THEN JJ=@:RM=FAILE=FA:FD=FASGE=FA & 


SPRINT ES$S:3STRINGS(LR, "—"): PRINT HIS:PFRINT TIMES 
CLOSE :LINEINPUT"'ENTER pour Trier"3;12$: RUN"TRICL/E 


:REM<ECRITURE 

TR=<G: IF VA=Q THEN 460780 & 
IF FD AND INSTRIVS,°"#")>Q THEN LSET ZN#S{1)=2Np{(3) [2 
VA=Q:IF NI${7) < "G" THEN 6<@98û 

ILSET ZNS(J)=2NS(4):IF Mi${2):="G" THEN 40960 ELSE TR=-1 


LSET ZN$(S)=2LNS: IF TR THEN LSET ZN${11)="-7T" Ë 
IF ROW{D):=27 THEN PRINT HH#; ® 


PRINT V$:ELS 
PRINT STRINGSILR, "A%) $ELSSSTRINGS(LR, #9) 5 





IF ERL<>;60ZSOTHEN 610950 [ 

RESUME 692950 

:IF ERR<ré THEN 611%:0 S 

IF ERL<£F60870THEN 61120 

FRINT"PASSAGE DE 32767-LIGNE=" ;ERL:DD=K-32768+ST-32748:FF=FI:RESUME 60410 
11F ERR<>9THEN 61150 

PRINT'INDICE FAUX À LA LIGNE"3ERLS"VARIABLE TROP LONGUE 7 — J°ARRETE" 
CLOSE END 

SON ERROR GOTO Q 

THRHRÉHRREREE 








61090 LC 1 61860 


60170 60420 60440 60510 60510 460520 60530 
606350 60650 60650 60570 60680 60740 60750 


60470 


61110 


61830 





Bernard Besse 


utilitaire 








qui vaut de l'or 


(1°°° partie) 





Ce programme a lui tout seul, remplace toute une 
quantité d'utilitaires que les possesseurs de "con- 
figurations cassette" devraient apprécier ! Jetez un 
coup d'oeil sur les lignes qui suivent pour vous en 
convaincre... 


UN SUPER DRIVER DE CLAVIER 


Ce programme permet d'obtenir sur TRS80 modèle 1 

- des touches à répétition automatique en cas d'ap- 
pui prolongé ; 

- un bip sonore à chaque enfoncement de touche (avec 
un ampli relié à la prise "AUX" de la sortie casset- 
te) ; 

- l'usage des minuscules (si le matériel le permet) ; 
- une commande d'inversion majuscules/minuscules ; 

- un Clavier AZERTY en option ; 

- des commandes pour afficher les autres caractères 
disponibles ; 

- la recopie de l'écran, partielle ou totale, sur 
imprimante ; 

- le gel de l'affichage vidéo ; 

- le contrôle du défilement ligne par ligne sur l'é- 
cran ; 

- une fonction d'édition de texte. 


Avec les anciennes MEM, il apportera en plus 

- le traitement des rebonds du clavier ; 

- la fonction contrôle (CTRL) directement en pressant 
SHIFT et sans déplacement du curseur, comme avec les 
nouvelles MEM. 


Dans sa structure, ce programme reprend le driver 
clavier de la MEM et lui insère les éléments néces- 
saires à l'obtention des commandes supplémentaires 
désirées. La fonction d'édition de texte peut être 
considérée comme indépendante, mais utilisant un dri- 
ver clavier modifié au niveau des codes généres. En 
outre, le driver d'écran a été remanié pour permettre 


l'exploitation des codes ASCII 60H à 7FH concernant 
notamment les lettres minuscules et précédé d'une 
fonction de contrôle du défilement de l'affichage. 


Les Lignes 3100 et 3110 devront être supprimées pour 
les imprimantes qui génèrent automatiquement une avan- 
ce papier conjuguée avec le retour chariot, sous pei- 
ne d'ajouter un interligne après chaque ligne d'im- 
pression. Les imprimantes capables d'exploiter les 
codes graphiques du TRS80 (codes 80H à OFFH) pourront 
se passer des lignes 3020 à 3040. Toutes ces lignes 
sont repérées par le signe + au début du commentaire. 
Les usagers qui ne désirent pas le clavier AZERTY 
devront sauter tout le paragraphe correspondant (li- 
gnes 1940 à 2140). Par contre, il n'est pas indispen- 
sable de supprimer les parties relatives au traite- 
ment des minuscules pour ceux dont le matériel ne 
permet pas leur affichage, car une routine teste la 
configuration et, si nécessaire, court-circuite auto- 
matiquement la partie concernée du driver d'écran. 


Le programme en assembleur qui suit est écrit pour 
une version cassette. Mais les utilisateurs de dis- 
quettes pourront aisément l'adapter'à leur propre 
configuration. Alors qu'en BASIC Level 2 le déplace- 
ment du tampon BASIC semble la meilleure solution 
pour loger le programme objet (ce qui le protège au- 
tomatiquement et garde disponible le haut de la mé- 
moire pour d'autres routines), sous DOS l'implantation 
en fond de mémoire est obligatoire pour rester com- 
patible avec différentes configurations du DISK BASIC. 
A la ligne 100 devra donc figurer une adresse en rap- 
port avec la taille mémoire et la place occupée par 
les éventuels utilitaires que l'on désire faire coha- 
biter. En leur absence, on pourra prendre OBD80H pour 
32 K et OFD80H pour 48 K. En outre, les lignes 3650 

à 3680 concernant l'initialisation devront être rem- 
placées par les suivantes : 


03650 EXIT LD  HL,ENTRY-1 ; ADRESSE POUR LA 
03660 LD (4049H) ,HL ; PROTECTION MEMOIRE 
03670 CALL 01C9H 

03680 JP 40 2DH ; RETOUR AU DOS 
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Enfin, pour obtenir des bips non perturbés par les 
interruptions d'horloge, ajouter les lignes : 


01835 DI 
01945 EI 


Certaines valeurs sont paramétrables afin d'adapter 
le fonctionnement au goût de chacun. Elles sont si- 
gnalées dans le corps du programme par un astérisque 
placé au début du commentaire de la ligne concernée. 
Ainsi par exemple, on peut changer la durée d'inhi- 
bition des touches avant répétition. La valeur don- 
née dans le programme (6, ligne 1260) permet environ 
une seconde de temporisation. Chaque unité en plus 
ou en moins augmentera ou diminuera cette durée de 
1/6ième de seconde. De même en ligne 1400, la caden- 
ce de répétition pourra évoluer de 5 à 14 coups/se- 
conde environ suivant la valeur donnée (de OFFH à 
00). 


À l'initialisation, l'écran s'efface et le message 
READY (ou DOS READY) apparaît dans le coin supérieur 
gauche. Les nouvelles commandes sont dès lors opéra- 
tionnelles. Toutes les touches sont à autorépétition. 
Si votre matériel est capable d'afficher les minus- 
cules à l'écran, vous les obtiendrez en pressant la 
touche SHIFT. Mais vous pouvez inverser l'effet de 
cette touche, de manière à obtenir les minuscules 
directement et les majuscules shiftées, en faisant la 
commande <SHIFT 0>. Si vous faites à nouveau cette 
commande, vous retrouverez la disposition précédente 
du clavièr. Les autres signes que peut produire le 
générateur de caractères équipant votre machine (co- 
des 5BH à 5FH, et 7BH à 7FH) seront obtenus en fai- 
sant <CTRL X>, X étant l'une des touches suivantes : 
men 4 LL ; LE LU ; " +! : LP s my : Lu 2" : MENTER" é MCLEAR" À 
MESPACE". Pour obtenir la recopie de l'écran sur im- 
primante, on utilisera les commandes <CTRL *> (enco- 
re une commande empruntée au vocabulaire du TRS80 
Modèle 3 dans un souci de standardisation), ou <CTRL 
=). La première de ces commandes ne fera recopier 
que les seules lignes d'écran situées au-dessus du 
curseur (généralement les seules lignes utiles), tan- 
dis que la seconde fera imprimer le contenu de l'é- 
cran tout entier (ce qui peut être nécessaire en mode 
éditeur de texte). Sous DOS comme en BASIC, le gel 

de l'affichage vidéo pourra être obtenu en appuyant 
sur la barre d'espace. Ensuite, chaque mouvement de 
celle-ci entraînera l'affichage de la ligne d'écran 

- Suivante. Presser une autre touche quelconque fera 
revenir au défilement continu. La routine AZERTY se 
limite simplement à permuter respectivement les tou- 


ches À et Q, W et Z, + et M, ce qui permettra cepen- 
dant à ceux et celles qui ont appris la dactylogra- 
phie en Europe de ne pas se trouver trop dépaysés 
devant le clavier de cet ordinateur. 


Si vous pressez simultanément les touches CLEAR et 
ENTER, un curseur clignotant vous signalera que vous 
venez d'entrer dans le mode de fonctionnement EDITEUR 
DE TEXTE. Les touches "flêches" permettent alors de 
promener le curseur, qui apparaît en dessous des ca- 
ractères du texte affiché sans les effacer, en circu- 
laire sur toute la surface de l'écran. Pour remplacer 
un caractère il suffit de frapper sur la touche cor- 
respondant au nouveau caractère. Ainsi, la barre d'es- 
pace efface (remplacement du caractère par un espace). 
La touche CLEAR n'efface que la fin de l'écran à par- 
tir de la position du curseur, tandis que <ENTER) 
fait retour au début de la ligne suivante avec effa- 
cement de cette ligne. Deux commandes supplémentai- 
res sont prévues : <CTRL D) comme DELETE et éCTRL I» 
comme INSERT. La première enlève le caractère au- 
dessus du curseur, les caractères suivants du texte 
étant décalés pour combler le vide. Pour supprimer 
plus rapidement une série .de caractères, utiliser 
l'autorépétition de cette commande. (CTRL I) fait en- 
trer dans le mode INSERTION, ce qui est signalé par 
l'apparition d'un deuxième curseur clignotant au- 
dessus du premier. Alors, seules sont actives les 
touches générant des caractères, y compris ceux obte- 
nus par <CTRL X». Faire <CTRL D> pour sortir de l'in- 
sertion, ce qui supprimera conjointement le deuxième 
curseur. Lors de la recopie entière de l'écran par 
l'imprimante (commande <CTRL =»), le curseur dispa- 
raît momentanément permettant ainsi d'utiliser la 
16ième et dernière ligne d'écran. Mais attention ce- 
pendant, car l'affichage du 6lième et dernier carac- 
tère de cette ligne, de même que l'action sur la tou- 
che ENTER, déclencherait l'affichage en rouleau et 
ferait ainsi disparaître irrémédiablement la première 
ligne du texte. Enfin appuyez sur la touche BREAK 
pour revenir au mode de fonctionnement initial, BASIC 
ou DOS. 


Les commandes de cet éditeur de texte sont certes 
rudimentaires, ce qui simplifie le mode d'emploi mais 
en limite la puissance. Pensiez-vous trouver ici un 
concurrent de SCRIPSIT ? Tel quel, il m'a cependant 
permis d'écrire cet article. Et maintenant vous pou- 
vez le développer à votre convenance. 

Etant donné l'importance du programme, vous trouverez 
la suite de la liste dans le prochain numéro (Ndlr). 





00020 
00030 
00040 
00050 
00060 
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HAE 00100 ORG &2E9H 


50119 
60120 
00139 
D0i40 
42E97 SA4D3S 00130 ENTRY LD 


PT] 


#Z2EE C27D43 00170 JP 


O00i0 : SUPER DRIVER DE 
AUTEUR : ROGER BUVAT 


COPYRIGHT "TRACE* 


A: (3840H) “ ee 
42EC FE03 00160 CP 03 


CLAVIER POUR T.R.S. 80 MODELE 1 


ET L'AUTEUR 


€ 5 # VERSION BASIC LEVEL 2 


SELECTEUR DE MODE D'EDITION 


NZ:CLAV 3 SI NON <CLEAR ENTER> 
09180 
00190 : EDITEUR DE TEXTE 


00209 
4&2F1 211440 00210 LD 
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00310 


6032 
05330 
00549 
00350 
00380 
00370 
00380 
00390 
00400 
00419 
00420 
00430 
00440 
00450 
Q0460 
00470 
00480 
00450 
00509 
00510 
00:20 
00330 
00540 
0653 

06560 
00570 
09520 
00590 
00&00 
00410 
00620 
00630 
006490 
004650 
00460 
00670 
00680 
90690 
00700 
00710 
00720 
00730 
00740 
00750 
0076ü 
60770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
008350 
00260 
00870 
00880 
00890 
00700 
00910 
00720 
00930 
00940 
00750 
00960 
00570 
00780 
00990 


EDITO 


BLINK 


CUROFF 


CARACT 


INSERT 


AFFICH 


CTRLI 


DELETE 


HL. 

13 €HL) 
CLAY 
JX:4N1DH 
HL2S3FFFH 
CE: {4020H) 
HL DE 

DE 

(SPH HE 
BC 

04 
Z:DELETE 
(SP) 3HL 
23 (HL) 
{SP) 2H 
NZ: INSERT 
09 
Z3CTREI 
OLH 
Z:AFFICH 
18H 
NC7AFFICH 
HL > CEBLINK 
{HL) 


HL 7 (4020H) 
À: OEOH 
CHL) 

NZ CARACT 
ÀF 
A:(4022H) 
HL 

HL ? (4020H) 
(HL)}74 

À 7 80H 
{CBLINK) A 


(SP) 7HL 
2r7(HL) 
(SP) 2HL 
CUROFF 
HL:BC 
DE7HL 
HL:BC 
HL 


:83H 
(DE) À 
(4022H) A 
ELINK 
(SP) 2HL 
27{HL) 
(SP) 7HL 
HL 

HL 


HL 
CHL) : 20H 
HE 

0486H 
BLINK 





5 FIN MEMOIRE ECRAN F7 
3 ADRESSE CURSEUR 


SI <CTRL D? 


5 SI MODE INSERTION 
MSP CCERIENTS 


SI <ENTER}Y 


SI CODE UTILE 


3 SI COMPTEUR NON ZERO 


* CODE CURSEUR 


ss 


5 SI CARACTERE AFFICHE 


# FREGUENCE CLIGNOTEMENT 


3 SI CODE COMMANDE 


SN 


‘s)) 


*# CODE MODE INSERTION 


EN ee 


© 


11 


Roger Buvat 
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Escalade? Guerre froide? 


Prix Nobel de 


Mesurez-vous avec 
votre 
Sharp PC 1211!.° 





Ce programme, inspiré d'un jeu publié par "Science 

et Vie" en 1976, simule les différentes phases d'une 
"escalade" entre deux super-puissances : Vous et la 
Machine. 

Le jeu se déroule durant dix années pendant lesquel- 
les les deux parties se constituent simultanément un 
stock d'armes nucléaires tout en essayant de deviner 
celui de l'adversaire ; cette connaissance est fonda- 
mentale car la guerre peut naître aussi bien d'une 
mésestimation des forces adverses que d'un suréquipe- 
ment de l'un ou l'autre... 

DEROULEMENT DU JEU (Shift A) 


Le jeu débute par une demande de l'heure ; ne vous 
étonnez pas, votre Poquette n'a pas été subitement 

et mystérieusement doté d'une horloge programmable 
qu'il voudrait mettre à l'heure, il æ seulement trou- 
vé ce moyen fort commode pour obtenir la racine de sa 
série de nombres aléatoires... 


Chaque "année" le Joueur peut augmenter son stock de 
bombes" mais sans dépasser le nombre 100, ce qui cor- 
respond à un stock maximal de 1000 bombes au bout de 
dix ans ; il doit ensuite estimer le stock de son ad- 
versaire, en respectant les mêmes limitations. De son 
côté la Machine procède de façon identique, mais cha- 
cun ignore ce que fait l'autre (pas de "tricheries" 
prévues dans le programme !). 


Une "guerre" peut alors éclater dans certaines condi- 
tions dépendant à la fois de l'attitude "agressive" 

de l'un ou l'autre des adversaires (stratégie jugée 
“belliciste" par le programme) et de leur "irrespon- 
sabilité" marquée par une sous ou sur-estimation gros- 
sière des forces ennemies. Dans ce cas le (ou les) 
responsables potentiels sont désignés afin qu'ils 
puissent, s'ils le veulent, modifier leur attitude... 


Si les conditions sont réunies la guerre a alors deux 
chances (sic !) sur trois d'éclater ; un tirage au 
sort en décide. Si c'est "oui" une "formule d'équili- 
bre" est alors déterminée en fonction des stocks réels 
de bombes et de la disproportion des forces entre les 
deux adversaires. Si le point d'équilibre = le "nom 
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ANNEE 1. 

VOTRE STÜCK=10. 
+10.) 

VOTRE ESTIMATION 
: 100. 

ANNEE 2. 

VOTRE STOÜCK=20. 
+10.) 

VOTRE ESTIMATION 


ANNEE =. 

VOTRE STOCK=30,. 

(+10. 

VOTRE ESTIMATION 

: 300. 

ANNEE 4. 

VOTRE STOCK=130. 
+100.) 

VOTRE ESTIMATION 


: 400. 
GUERRE POSSIBLE ! 


«DE MA FAUTE 

ANNEE 5. 

VOTRE _STOCK=230. 
€+100. > 

VOTRE ESTIMATION 
5 500. 

GUERRE POSSIBLE! 


".-DE MA FAUTE 

ANNEE 6. 

VOTRE STOCK=330. 
(+100. 3 

VOTRE ESTIMATION 


GUERRE POSSIBLE ! 
! {DE MA FAUTE 


le 
ad 








JE VAIS FHRE SAUTER LA 
PLANETE ENFIN, JE SERA), 
LE MAÎTRE DO HoWDE !/! 







C'EST LA GUERRE! 


APOCALYPSE À 13. 
% 

VOUS AVEZ PERDU! 

ANNEE +. 

VOTRE STOCK=265. 
(+100, ) 

VOTRE ESTIMATION 
- : 700 (SN 

ANNEE 8. 

VOTRE STOCK=365. 
+100. } 

VOTRE rio 
D : 800. 

ANNEE 9 

VOTRE STOCK= Lt 
+10.) 

VÔTRE ESTIMATION 

ANNEE 10, 

VOTRE STOCK=385. 
<+10.) 

VOTRE ESTIMATION 
: 1000 


: 1000. 
NIVEAUX=VOUS : 2, 
MO1:6. 

STOCKS DE BOMBES 


VOUS: 385. (1195. 
MGI : 1000. © 1000, ) 
DECLENCHEURS DE 
GUERRES: 

VOUS: 0. FOIS 
MOI:1. FOIS 

JE SUIS FAUTIF.. 
. AH. 8H 





bre de l'apocalypse" - est dépassé c'est "la fin du 
monde"... ; sinon un vainqueur est désigné (le plus 
fort) à les stocks des deux adversaires sont diminués 
en fonction des résultats des combats. 


: Nombre de guerres déclenchées par le Joueur 

: Nombre de guerres déclenchées par la Machine 

: Stock global à partir duquel l'Apocalypse peut 
survenir (initialisé à 100) 

Q : Formule d'équilibre = ABS (D-E)/Z 

P : Point d'équilibre = 100*C0S Q (angles en gra- 

des) ; correspond à un % de l'Apocalypse 

Nombre de l'Apocalypse (initialisé à 100*C0S 20, 

soit 95 %) 

R : Variable utilisée dans le calcul des conditions 
de guerre ; plus elle est faible, plus la guerre 
peut se produire facilement (initialisée à 7) 

: Nombre aléatoire inférieur à 1 

: Variable de travail 

: Variable de travail 

: Variable de travail 

: Indice des Années 


ERA QG 


Le même processus est repris durant dix années consé- 
cutives (sauf dans le cas de l'apocalypse, bien sûr). 
En fin de partie les bilans sont publiés : AR: 


* 


Stock de chacune des deux puissances et dernière 
estimation faite par l'adversaire ; 

Désignation du responsable des guerres ou du cata- 
clysme final, et si aucun conflit n'a éclaté, dé- 
cernement du "Prix NOBEL de la Paix". 


* 


VARIABLES UTILISEES 


NUKH»% Æ 


B : Incrément annuel du stock du Joueur 

C : Incrément annuel du stock de la Machine REMARQUES SUR LE JEU DE LA MACHINE 

D : Stock réel du Joueur D 

E : Stock réel de la Machine 

F : Stock supposé du Joueur * Le programme lui assigne au départ un niveau de 

G : Stock supposé de la Machine $ stratégie compris entre 1 et 6 suivant lequel son 
H : Niveau de stratégie (calculé) du Joueur attitude sera plus ou moins "belliciste" ; cepen- 
I 


dant si les résultats d'un conflit frôlent de trop 


: Niveau de stratégie (choisi au départ) de la 
Machine 













1: PAUSE "RPOCA CD-2+201/200 18S31IF YHOGÈSUE Z25:PRIHT "STOCK 



































ÉYPSES 120:1F FSIHT “EX "AMI HSINT €35 S DE RCMBES: 
2:PAUSE "AUTEL SIN CIUkCI+ W+15:IF #21 "PRINT "VOL 
R: À. GANDGSSI 2333LET I=1- GÜTÜ "3" Se'SDS "CUS. 
Z: PAUSE "COPYR 1 170: G0T0 "5" LS Re PRIHT sig 
IGHT: L''AUTEL 125: GOSUE "HMixz l'iSre2 DEEP 3: GI: "SES "C"sG 
R+TRACE INT c40H+1): PRINT "C'EST pe 
4: PAUSE "FAIRE C=INT ASN &£ LA GUERRE !. 230: PRINT "IHECLE 
SHFT À" 101+K2-E23: en NCHELRS DE G 
SG: END IF Z=1G0T0 180:IF Cr=1)+CY= UERRES: ": 
10: "W'W=ÉUHMDÉS 1% ZkCHÈ=IILET PRINT "VOUS: 


2HEU-INT W: 
RETURH 

20: "#'"PRINT "OU 
ERRE PGSSIBL 
ER 
RETURH 

100: "A"EEEF 1: 
CLERR : INPUT 
"QUELLE HEUR 
E EST-IL?"5N 
:M=DEG W-E2: 
PAUSE "MERCI 
PUSSOSUE "HW" 
SISINT SéM+i 
) 


101: GRAD :A=INT 
CE2#C0S 20): 
H=E2:R=T 

10S:FÜR Z=iTD 10 
:BEEF 1: 
PRISE "ANNEE 

{10: "O"IHEUT "EG 
UIPEMENT EH 
BGMEEST"SESE 
ZÂES ÉSIF E> 
ESPAUSE "TRÜ 
PIMsGOTC “o" 

115: D=D+E:PEINT 
NYOTRE STOCE 
TE É+UsE 
SMS H=INT 


130:C=INT (EC-E2 


) 

135: "1"E=E+C: IF 
E<=OLET E=1 

136:1F EDE3LET E 
=E3 

140: MPNPAUSE "ES 
TIMATIOH STO 
CK ENNEMI": 
INPUT"... CO 
MBIEN?"3G3IF 
GHEZZPAUSE * 
TROP !": GOTO 
TEL 

141: PRINT "VOTRE 
ESTIMATION: 
uz 0 

145: GOSUB "W:F= 
F+INT CiC+ 
INT <E2W+12) 


#2) 

155: Y=0: IF S-'E€H 
“RLET Y=i: 
GÜSUE "#2 


PRINT "...DE 
NOTÉE FAUTE 


160:IF F<IEI-R 
LET Y=Y+2: 


GOSUE "#": 
PRINT "...DE 
MA FAUTE" 


J=J+1:G0T0-" 
4" 
18S:IF CY=22+0v= 
33#CH£ DILET 
K=K+i 
190: "4"Q=AES (D- 
E>/Z:P=INT € 
E2+*C0S G)3 
PRINT "APOCA 
LYPSE À “3P3 
195:1F P>=AIF DH 
E>NBEEF 6: 
PRINT "...FI 
N DU MONDE ! 
_..":GOTO "6 
200: IF D>EPRINT 
"YOUS AVEZ G 
AGNE !...":E 
=INT €.SE):D 
=INT €. 750): 
GÜTO "5" 
205: PRINT _"YOUS 
AVEZ PERDU!. 
"SDSINT € 
SDDE=INT €. 
TSE) 
210:"S"NEXT Z 
"SPRINT "NI 
VEAUX= VOUS: " 
SH" MOIS I 


"3J5" FOIS": 
PRINT "MOI: " 
sks u FGIS" 

235:1F J=0IF K=0 
PRINT "NOUS 
MERITONS LE 
NOBEL ! ": GOTO 
n7n 

240: GOTO "8" 

245:"7"IF KE 
PRINT "...SU 
PRINT "...SU 
RTOUT VOUS ! 


“: END 
2S0: PRINT "...SU 
RTGUT MOI !" 
: END 
25: "8 "IF JK 
PRINT "SALE 


FAUTELUR DE G 
UERRE !":ENI 
260: IF JÉKPRINT 


"JE SUIS FAU 
TIF...4H1. AH 
l": ENT 


Z6S: PRINT "HOUS 
SOMMES CGLPA 
BLES! "END 
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près l'Apocalypse, la Machine, soucieuse de sa pro- 
pre survie, peut pratiquer d'elle-même une "déses- 
calade" en diminuant son niveau ; dans certains cas 
ceci peut conduire à un désarmement partiel ou to- 
tal par une diminution de son stock de bombes (in- 
crément négatif). 


Le choix de son stock initial se fait selon une 
formule faisant intervenir le niveau de stratégie 
ainsi qu'un nombre tiré au hasard ; ainsi pour le 
niveau 1 le stock sera compris entre 7 et 33, pour 
le niveau 2 entre 13 et 40,...., pour le niveau 6 
entre 41 et 100. 

Les incréments de stock sont obtenus à partir du 
stock précédent dont on prend un pourcentage cal- 
culé de façon similaire. 


* L'évaluation du stock du Joueur est simplement cal- 


culé en utilisant une moyenne entre un nombre aléa- 
toire et son propre incrément de stock. 


REMARQUES SUR LES CONDITIONS DE CONFLITS 


* A l'instar de la Machine, le Joueur possède un ni- 
veau de stratégie mais qui est calculé à chaque 
tour du jeu, dépendant du volume de son stock réel 
par rapport au temps écoulé. 


* Une guerre est possible si le niveau de stratégie 


d'un des adversaires est relativement fort (ce qui 
correspond à une accumulation de bombes présumée 
forte), et si à la fois il sous-estime le stock 
ennemi dans une certaine proportion (ce qui corres- 
pond à une tentation de faire la guerre, car ilpen- 
se être le plus fort). En pratique le programme cal- 
cule le rapport entre l'estimation et la réalité et 
le compare à un seuil dépendant du niveau de stra- 
tégie et de la variable R initialisée au début du 
jeu ; par exemple avec R-6, pour le niveau 3 si le 
rapport précédent est inférieur à 0,5 (100 % d'er- 
reur relative) il y à risque de conflit ; pour le 
niveau 2 ce seuil est ramené à 0.33, mais il est 
égal à 1 pour le niveau 6 (la guerre est possible 
si l'on n'a pas deviné le stock exact de l'adver- 
saire !}). 


En cas de guerre si l'équilibre des forces est réa- 
lisé (stocks très voisins) il y a un risque pour 
que l'un ou l'autre veuille "aller jusqu'au bout" 
et l'Apocalypse peut survenir. La formule d'équi- 
libre conduit à un nombre Q dont la valeur maxima- 
le est 100 ; la valeur à ne pas dépasser A à été 
choisie égale à 95, ce qui correspond à un écart 
annuel moyen entre les deux stocks de 20 unités. 
Par ailleurs ce cataclysme ne peut survenir que 

si le stock cumulé des adversaires est supérieur 

à la valeur N. 








ORGANIGRAMME DE PRINCIPE 


Initialisation 
—> Année i 
Choix du nouveau stock de bombes 
Estimation du stock de l'adversaire 


Les conditions de la guerre sont-elles 
atteintes ? 


® | 


Tirage au sort 


Fe 


"c'est la guerre" 





Calcul de la formule d'équilibre 


| A-t-on dépassé le nombre de 
l'Apocalypse ? 


| 


Stock Joueur > Stock Machine ? 


le Joueur la Machine 
a gagné a gagné 


— (oui 





i=i+]l 
dernière année ? 


GD 


Etat des stocks 
Désignation du responsable 
-.. ou remise du Prix NOBEL de la Paix 


É——— —- 





COMMENT AMELIORE LE JEU 


Trouver une méthode ou un algorithme pour que la 
machine évalue au mieux le stock du Joueur 


Modifier de façon aléatoire, ou autre ..., les 
paramètres conditionnant le déclenchement des con- 
flits et l'éventualité de l'Apocalypse 


Calculer les stocks des deux adversaires après une 
guerre 


APEtC--- 


EN trie our. 


Avez-vous rempli le questionnaire? 


page 
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technique 





Dans les entrailles 
logicielles ss PC1500 
I 


000908089000 


= 


SONSO0S0US C0 Se . 
CCR 





A l'aide des fonctions PEEK, POKE, STATUS décrites 
dans le numéro 3 de TRACE, j'ai pu "décortiquer" l'ar- 
chitecture d'un programme BASIC en mémoire, la struc- 
ture des variables ou tableaux, numériques ou alpha- 
numériques. 


ARCHITECTURE PROGRAMME BASIC 


La RAM BASIC commençant en & 4OC5, il m'a été relati- 
vement facile de décoder un programme en mémoire ; 
voici la structure de celui-ci 


OP 


LH : octet de poids fort du numéro de ligne (Ç&FE) 
LL : octet de poids faible du numéro de ligne 
LEN : nombre d'octet de V1 à (13) inclus 


L'espace entre LEN et 13 contient la représentation 
de la ligne. Exemple : 


la ligne 10 PRINT SQR A sera codée ainsi : 
do 6, 210 MS 2007 (65 
(®) : CHR$13 : retour-chariot (ENTER) 


N.B. : la fin du programme se signale par un octet 
égal à &FF(255). 


A partir de ceci, il est possible de trouver les co- 
des de chaque instruction BASIC ; ne vous fatiguez 
pas, je l'ai fait pour vous : 


Chaque code comprend 2 octets : un préfixe (E6,E7,FO 
ou F1) et le code proprement dit. 

Dans le tableau de la figure 1, les instructions en 
majuscules normales ont pour préfixe &f1, en minus- 
cules normales &FO, majuscules soulignées &E6, minus- 
cules soulignées &E7. 


VARIABLES ET TABLEAUX ALPHANUMERIQUES 





[æ El ( 


Figure 2 








ID1 : ière lettre du nom de la variable 


ID2 : 2ème lettre du nom de la variable 
(+32 (&20) si variable 
(+160 (&AO) si tableau 


g : CHR$(0) 


IND : index relatif fin (de variable 
(de la dernière variable du 
tableau 


Y,X : dimensions (X,Y) du tableau ; ou X=Y=0 pour 
une variable 


LEN : longuëur de la (les) chaînes (s) 
V1,V2,... : variable 


Exemple : AB$-="ABCD" sera codé ainsi : 
65,98,0,19,0,0,16,65,66,67,68,0 


VARTABLES ET TABLEAUX NUMERIQUES 





LENS E SERPENT 


ID1 : 1ère lettre du nom de la variable 


ID2 : 2ème lettre du nom de La variable + 128 si ta- 
bleau 


(4 : CHR$(@) 


IND : index fin dernière variable du tableau ; ou 
= 11(&B) si variable unique 
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ROC POQUETTE 


Y,X : dimensions (Y,X) du tableau ; ou X=Y-0 si 


variable 


136 : CHR$(136) 






OD STR$ INT 


RIGHTS 
GLCURSOR 
CHR$ SN CONT GCURSOR WAIT 
LCURSOR 





se 
= 
[née 













































A 

Fe . . . 

5 DEG ATN USING CSAVE | FOR LOCK 
ROTATE COLOR 

DMS LN READ UNLOCK 

LF 

7 STATUS LOG RESTORE 
LINE 

POINT EXP CLS LET RANDOM 

= LLIST 
RE En CRE 
ee = ee "# 
a - a ele 
ee sn a. . 
. ne 5 es 
re … — 
en : ma. ie 


81,82,0,11,0,0, 136, 3, 128, 35, 


Figure 1 


105,130,0,0,0 


car &23-35 ; &67-105 ; &82-130 


-2367,82 


101 : partie entière du log décimal de la variable 


SGN : signe 


Et voila-:- 


= 0: si positif 
= 128(&80) si négatif 


Vi, V2,V3,V4,V5,V6 : 


représentation de la variable 


Exemple : QR=-2367,82 sera codé ainsi : 


D ————— ————— 
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utilitaire 


Je trie pour vous 


Depuis la rentrée des Classes, les professeurs com- 
mencent à crouler sous les fiches d'élèves qu'il faut de l'alphabet. 

classer, et il est bien dommage que le PC-1211 nedis- Dans le troisième programme, on s'arrête à 25. Par 
pose pas du code ASCII. la suite, Z sera toujours supérieur à 26. Voir ligne 
8 de ce programme. 








aux 26 premières mémoires, c'est-à-dire aux lettres 


Voic trois versions d'un programme permettant de clas- 
ser, selon les cas, de 22 à plus de 50 mots, avec 


plus ou moins de précision. Lignes 5-10 


Le programme ASCII-1 a la capacité la plus grande en 
mots, mais ne tient compte que de la ère lettre. Il 


est possible, après une première exécution, de le ré- 
exécuter en tenant compte de la seconde lettre, pour 


les mots ayant la même initiale. 


Introduction des mots et des lettres sur lesquelles 
se fera le tri alphabétique. 


Dans le programme 1, les mémoires contenant ces don- 
nées commencent à 31. Il faut commencer par entrer 

le numéro de la lettre significative : lors de la 
première exécution ce sera 1, mais on peut souhaiter 
classer les mots commençant par une lettre donnée sur 
le critère de leur deuxième lettre, etc. A(28) permet 
un rappel utile en ligne 8. Il n'est pas nécessaire 
de savoir à l'avance le nombre de noms à entrer. 

Dans les variantes 2 et 3, en revanche, on crée une 
boucle en fonction de ce nombre qui doit être connu. 
On peut mettre son début préféré sur son programme 
préféré... 


ASCII-2, pour une capacité d'une quarantaine de mots, 
tient compte des deux premières lettres et ASCII-3 
des trois premières, pour une capacité hélas bien 
juste en lycée, tient compte de trois lettres. 


Lignes 1-3 


Dans les trois cas, les lignes 1 à 3 protègent le 
contenu des mémoires d'un effacement involontaire 
et accidentel à la mise en route du programme. 

En ligne 7, chacun des trois programmes demande le 


Ligne à = nom à entrer, sous forme de chaîne alphanumérique, 
après en avoir rappelé le numéro. Celui-ci étant une 
Effacement des mémoires. Affectation d'une valeur variable, il est impossible d'avoir un message d'IN- 


15 IHPUT "IN=1 £ 1: INPUT "IN=i- 
GUT=2:"5ATIF  12:F0R H=Y+2TD GUT=2: "SA IF 
A=1GOTO 4 S1F24627) G=Z2GOTG 20 


= tr È= neyrt Ar 


IEACN+1 SA 


& 

3: GÔTG 1 

4: CLEAR FOR Z 
=iTO 26: AC2) 
Z£:NEXT 2: 
ÉEEP 2Z 

SrA(Z3=31: 
INPUT "LETTR 
E SIGNIFICAT 
IVE: "5 AC25) 

Es ACETIEAC2TD+ 
Î 


T'PALSE "MOT"s. 


ve "ART" 
2735" ÊK=F 
; TH9 "2 INPÜT À 
FCAÉ29)02IF 
AFCACZIID=UX 
“"GÜTÜ 10 
SAIT =AC290+ 
1: FAUSE 
LSING "at": 
H62895"E LET 
TRE HU MOT": 
C2?) INPUT 
ALAEZCD 5 
GiAÉZSI=AC29)+ 
2:G6ÜT0 6 
LD ACZTISAC TD 


11: FOR M=ZITE 2 
9+2A4C2T)ISTEP 


IF AEY+II<AC 
+1) GOT 16 
AS CY+1Tr AY 
+1)3=AcH+ii Th 
L+1 = 
RATS AD ENSE 2 
RETOUR 2 
Hi=C# 

HEXT 

HEXT % 
D=QO:HEEF 2: 
FÜR 222270 Z 
1+2AKZTISTEP 
#3: =l+i 
FRIHT USING 
“eftittsls" “s 
Ê+Cz) 

IF ACZ+12< 5h 
Let) FRINTN" 


HEXT 2: PRINT 


22: INFUT LETTRE 
E* “CLASSE SUI 
VMANTEZ"S HE: 
IF H$="6" 
GÜTE à 

223 INPUT M"RELEC 
TURE 7 "si: 
IF 1$="0" 
GÜTO 1€ 

Z4: EH 


2: EHD 

4: CLEBR FOR Z 
=iT 26:4C2) 
ZE: HEXT 2! 
PEER 

©: IHPUT "NB MG 
Crus (27) 
FÜR ÀA€29)=32 
TÜ 29+3AC27) 
STEF 2:4€28) 
Lhc285+1 
PAUSE "Na "3 


BC30)=AC29+ 
1: PAUSE "LET 
TRE 1": IMHPUT 
CAC 230D) 
ACZII=AC ET) + 
#:PAUSE "LET 
HREMASSNNEUT 
ACAES1)) 
HEXT (23) 
FGF V=S2TO 2 
3+5 Z4C2TISTEP 


FU: H=V+3TG 
ES+EAC27) 
SES 

ZIIF AÜvV+11=Ac 
bi GOÜSUE 50 
:GOTG 18 





:*=û 
de 2864 


DD 
BRINT USING 


23: PRINT 
HTG 
OU IF GÉV+SIE AC 
LPS RETURN 
f ia 
1éH+1558 


HEC yy: AFS 
LORIE 26 
:26#: RETURN 
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Re ro 


1: IHPUT "IH=i 
GUT=Z:"sAIIF 
= GOT 

IF É=ZGOTE À 


=1T0 25: AC2) 
=P:HEXT 2 

SG: INPUT "HE MG 
TS: "1427 

G:FÜR 2=3370 2 
9+HaC2DSTE 

dire )=A (26 

ee: 

7: PÔAUSE USIHG 
[DE à 1e 10 : (I L TES Fi H 


AC2533 INPUT 


PAUSE 4C30Ds 

MENÉETEREMDE 
IAE) 

SG: INPUT ACAC23 

NYIHEXT 4629 


10:NEXT Z 
11:FÜR A=33T0 2 


S+4ACETISTER 
4 


2:FOR E=4+4T0 


PA CET 


STEF à 
IF ACâ+II=AC 
EHISGOSUE 30 
:GÜTO 16 
IF ACAHIN<AE 
E+1)2GGTG Î6 
GÜSUE S0 
HEXT E 
HET À 
HG:FOR F=zz 
Ti 2944627) 
STEF 4+:D=D+i 
PEINT USING 
“ffitslns u LA 
AZI IF CAC 
E+i3e ACZ+S) 
die Z+1)€26 


Ha dé let ot bu 
Lun] Due + 
PTT pes 


ru 
La] 





SPRIHT " “ 

20: MEXT Z 

21: INPUT "RELEC 
TURES"S ASS IF 
= "O"GOTO 1 


IF AéA+2i=ûc 
E+21GGSUE 40 
: RETURN 
ZiiIF ACH+2IÉAC 
E+23RETURN 


RETURN. 
40:1F ACA+ZIEAC 
+23RETURN 


FETURN 
AU: Cañéé+iùs CA 
+135=ACE+L)1A 
CE+12=C 
Si: D=Rcä+2Z): AA 
Zi=AE+2): À 
CE+E3=I 
A: E=ñÉñ+Z) 1 AC 
Z)=ACE+S):À 
CE+2)2=E 
AZ: HÉ=AS ÉD TAF 
I=AÉCE): ASC 
i=H£: RETURH 





PUT, d'où l'utilisation de la PAUSE. Il est alors 


possible d'entrer une variable sous la forme A$(A(29)), 


astuce tout à fait commode que beaucoup connaissent 
peut être, mais que je n'ai découverte qu'à l'occa- 
sion de ces programmes. Cette formulation est impos- 
sible après un message d'INPUT. 


En lignes 8, ou 8 et 9, il faut rentrer (sous leur 
forme numérique) la ou les lettres significatives. 
Pour la même raison que ci-dessus, PAUSE puis INPUT. 
Dans le programme 3, puisqu'il y a 3 lettres à ren- 
trer par mot, celui-ci est rappelé dans le message 
en PAUSE. C'est pour éviter à cette occasion le mes- 
sage d'erreur n° 1 que Z a été utilisé au lieu de A 
(28) ou A(29). Voir conséquence en ligne 19 : en ef- 
fet Z n'a plus une valeur identique pour chaque mot. 
La suite des programmes est fort classique. Le second 
pourrait comme le troisième être optimisé par l'em- 





ploi d'un sous-programme. I1 convient de faire chan- 
ger d'ordre de concert chacune des données d'un même 
pas, évidemment, et de tenir compte de la possibili- 
té, si le tri se fait sur plusieurs lettres, pour la 
première ou la seconde de 2 mots d'être identiques. 
L'emploi de Z risque de fausser le jeu lors de l'exé- 
cution du troisième programme, mais je doute que l'on 
s'en rende compte sur une classe de 22 élèves. 


Lors de la boucle qui assure l'impression des résul- 
tats, l'ordinateur séparera d'une ligne blanche les 
groupes de mots commençant par une même lettre. C'est 
utile en particulier pour le premier programme, pour 
savoir si l'on à besoin d'une nouvelle exécution avec 
une nouvelle lettre significative. Sans le IF A(Z+1) 
426 en ligne 19 d'ASCII-3, tous les mots en nZz" se- 
raient séparés. 





J.F. Chapin 








Bogues, trucs, 
erreurs et curiosités 





1) Dans un listing (fonctionne seulement sur PC-1500) 
Tapez : a) NEW 
b) 1 "VOILA LA BOGUE" 
c) passez en mode RUN 
d) tapez RUN — ERROR 21 IN1 
e) puis passez en mode PRO 
f) tapez surf 


et observez le numéro de ligne ! 


Gardez maintenant le doigt appuyé sur BR, pas mal 
non ?... maintenant encore plus fort : 


- reprenez la procédure prédente jusqu'à e) compris 
- tapez n caractères (o<nç25) 

- tapez ? 

et regardez où se trouve le curseur ! 


2) Plus grave dans le BASIC : 
Faites NOT G [enterl reponse :-1 (logique non ?) 
Faites NOT -1 [enter] réponse 


Faites NOT(NOT @) réponse :-31233 (Allo ?!) 


Il semblerait que ces bogues soient caractéristiques 
des premiers PC-1500 mis sur le marché car elles n'ap- 
paraissent plus sur les machines achetées récemment. 
Cependant les possesseurs de PC2 de TANDY seront heu- 
reux d'apprendre que la deuxième bogue citée plus 
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:9@ (toujours logique...) 


haut fonction sur leur machine... 


3) Comment reconnaître si votre PC-1500 est une "nou- 
velle édition" ? 


Le nombre de série du PC-1500 est du type "AXXXXXXY" 
si A = 1 "ancienne édition" 
si À = 2 "nouvelle édition" 


4) Tapez : . NEW @ 
. 1 A (en mode PRO) 
- RUN (en mode RUN) 
. MERROR 1 INi" (normal, non ?) 


maintenant . 


. POKE &40C6,0 (transforme : ligne 1— 
ligne @) 
. A = 123456789 (ou n'importe quel nombre) 


. RUN 
. "123456789" (un peu moins normal...) 


5) Tapez : . INT (2A4) réponse : 15 
. 2X2x2x2 = 15 ? pourquoi pas... 


Cette erreur est due au fait que le BASIC utilise 
des calculs logarithmiques pour caiculer la fonction 
As. 


Daniel Glazman 





statistiques 





LISSAGE DES MOINDRES CARRES AVEC UN SHARP PC 1211 


Dans l'étude de la plupart des phénomènes "statisti- 
ques" on est amené à effectuer des mesures sur des 
"couples" de valeurs et à essayer de mettre en évi- 
dence des relations entre elles. 


On peut ainsi établir un graphique où chaque point 
d'abscisse X et d'ordonnée Y correspond à une obser- 
vation. Dans un grand nombre de cas la relation en- 
tre X et Ÿ est "fonctionnelle", ce qui signifie que 
les points s'alignent approximativement sur une cour- 
be qui peut être une droite, une parabole, une hyper- 
bole, etc... Il en est ainsi par exemple pour les 
dépenses annuelles d'un ménage (X=mois de l'année, 
Y=montant mensuel des dépenses) et pour toutes les 
statistiques économiques ou du type "études de mar- 
ché". 


La détermination de la meilleure "courbe" sur laquel- 
le les mesures peuvent s'ajuster se fait généralement 
par des méthodes mathématiques, dont une des plus 
connues est la "méthode des moindres carrés". Cette 
méthode consiste à trouver les paramètres de la cour- 
be tels que la somme des carrés des erreurs obtenues 
du fait du choix de cette courbe soit la plus faible 
possible ; par exemple dans le cas d'un ajustement 
des mesures X, Y, à une droite Y-=AX+B on essayera 

de minimiser Îa Somme des valeurs ( Y,-AX,-B)°. 


Remarque pour les ‘matheux" : cette erreur est mini- 
male quand les dérivées partielles de cette somme 
par rapport à À et B s'annulent, d'où un système de 
deux équations linéaires permettant de déterminer 
ces deux valeurs en fonction des mesures x, et Y,- 


Le programme ci-après écrit pour SHARP PC 1211 ou 
TRS80 "poquette", permet d'effectuer des "lissages" 
avec des courbes du type 


VA CANX UP ENE 


le paramètre n pouvant être choisi arbitrairement, 
positif ou négatif, entier ou décimal, les seules 
limitations venant des capacités de la machine qui 
ne tolère que des résultats compris entre 10-99 et 
10+99(d'où dans certains cas des erreurs 1....... à 
l'exécution). 


a 


Après calcul des paramètres À et B une "projection" 
de Y peut être réalisée entre deux valeurs limites 
de X, avec calcul du taux de croissance moyen cor- 
respondant. 


UTILISATION DES MEMOIRES 


— A(27),4(28),...: Mesures X, x, XY 


AR AT UE 
- L: Nombre maximal de valeurs fixé à O0 pour cette 
version du programme, soit 20 mesures 





M : Nombre exact de mesures 


N : Ordre de la fonction (choix par l'utilisateur) 


P,Q,R,S,C : Eléments du calcul de A et B 


A,B : Coefficients de la fonction YŸ = A MIE 


E : Erreur à minimiser 


,;F : Valeurs de X bornant la période de projection 


Taux de croissance moyen pour la période choisie 


Indice des boucles 


D 
T 
X,Y : Valeurs x; Y, courantes 
Z 
U 


»V,W,0S : Variable de travail 


POPULATION USA 
MILLIONS HABà 


DONNEES x 
1.:800./5,3 
PACS UE ET 
3.:820./9.6 
4,.:830,/12.9 
5.:840,/17.1 
6.:850.-23,2 
7.:860./31.4 
8.:870./39.8 
9,:880./50.2 
10.:890.-/62,3 
11.:900./76. 
12.:910./92. 
13.:929,/105-7 
14.:939.-122.2 
15.:940./131.7 
16.:950.-151.1 
1r.:960.-179.3 


LISSAGE GRDRE 1. 
A=1.067279412 
B=-873.4294118 
E=3.225423443 


PROJ 955.-960. 
355, : 145.8724262 
956. : 146.2597062 
95r.:147.9569852 
958, : 149,0242652 
359.:150.0915442 
360.:151.1528232 
——> S00- 960: 
2.11% 


LISSAGE ORDRE 10 


A=3. 17709244E-28 
B=-25,3928 7664 
E=8.469291725E-0 
Î 


PRÔJ S00.-503. 
800.:-1.2706237r 
801.:-0.24168837 
302. :-0.4073063 
803.:0.023077105 


——? 800- Séû: 
3.14% 


PROJ 958.-962. 
958.:171.5225725 
359.:113.692615Z 
360. :175.8831193 
261.:1r5.0942558 
962.:180.2261975 
-—-} S00- 962: 
2. 20% 

PRÔJ 980.-385. 
280, :224.2622559 
981.:226.92500fr 
982.:229,61127917 
Q83.:222.2322200" 
954. :225.0552604 
385.:22r.5193503 
——> 800- 9385: 
2.074 
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NRA ne Aou POQUETTE 


TE 


a — POQUET 


Remarque 

D et F sont utilisées comme paramètres d'une boucle 
FOR...NEXT et ne peuvent pas dépasser la valeur 999; 
de ce fait si les Xj correspondent à des numéros 
d'années, ils ne devront pas comporter de chiffre 
indiquant le "millénaire". 


PHASES DU PROGRAMME 


- Ligne 100 (Shift Z) : Remise à zéro générale et 
initialisation de L (40 = 


ponibles). Enchaînement sur "A. 


- Ligne 150 (Shift A) : 
D : Entrée des Données 
$ : Sortie des données 
L : Lissage 
P : Projection 
PES EIN 


Choix des "actions" 


Toutes ces actions, à l'exception de "P#", 
être initialisées directement par Shift X. 


- Ligne 200 (Shift D) : Entrée des données Xi Yi ; 
à chaque "VAL X?" ou "VAL Y?" frapper la valeur 
correspondante puis ENTER ; pour terminer faire 
ENTER directement pour répondre à "VAL X?" ; le 
nombre de "paires" est alors affiché et l'on re- 
tourne en "A"; si ce nombre est inférieur ou égal 
à un la mémoire M n'est pas modifiée. 


Ligne 300 (Shift S) : Calcul des coefficients de 
la formule de Lissage Y = À * X° N après choix de 
la valeur N. 


peuvent 


nombre de mémoires dis- 


Le calcul, qui peut être assez long dans certains 
cas, est suivi par l'impression ou l'affichage des 
coefficients À et B et de l'erreur E. 

Enchaînement systématique sur "P" (sur "Ar si N 
est égal à 0). 


Ligne 500 : Projection de Ÿ suivant la formule 
choisie en faisant varier X entre deux bornes D et 
F choisies préalablement. Calcul du taux de crois- 
sance moyen T ; si D est supérieur à la valeur X; 
rangée en A(27) ce taux est calculé en utilisant 
la valeur correspondante ni rangée en A(28) à la 
place de À * D°N ; de même si F est inférieur à 
Xy rangé en A(25+2M) on utilise la valeur Yy ran- 
gée en A(26+2M) à la place de A * F° 

Enchaînement sur le début de la séquence "P" pour 
une nouvelle projection ; si D est égal à zéro re- 
tour en "A". 


- Ligne 600 (Shift F) ; Fin du programme. 


Certains seront surpris par la rédaction des lignes 


515, 520 et 525 où les calculs du type 4 X 


N +B 


sont effectués en deux temps ; ceci est rendu néces- 
saire pour éviter des erreurs pour le moins "curieu 


ses" de la machine ; ainsi si À = 100, B = — 8000, 
X = 80 et N = 1 on obtient les résultats suivants : 


DPONL= 80 AIX NE 


8000 mais À X 


Quelqu'un saurait-il expliquer ce "mystère" ? 
aq 





1:REM "LISSAGE 
MC 


Z:REM "AUTEUR: 
À. GANDOSSI 
ZiREM "COFYRIG 

HT: TRACE+AUT 


Si PAUSE "Z:RÂAE 
":PAUSE "AA 
CTION":PAUSE 
"D:ENT DATA" 
: PAUSE "S:Sû 
RTIE DATA": 
PAUSE "LiLIS 
SAGE": PAUSE 
"FiFIN"3 END 

90: "I"X=AEZ6+E) 
iY=AC2T+2): 
RETURH 

LOUE ZSBEEFETS 
CLERF :L=40 

150: "A"BEEP 1: 
IHPUT "ACTIG 
H CD/5-L-P°F 
37" C$:GÔÜTO 
G$ 

200: "D"BEEP 1: 
PAUSE USING 
INT E 27232 
PAIRES MAX 

Z205:FÜR 2Z=iT0 L 
STEP 2:X*=26+ 


ZiT=A+i: 
INPUT "VAL % 
FUIACHIS YAL 
Y?"s ACT): 
NEXT 2 
210:W=t2-1-2: 
PAUSE Hs" PA 
IRES":IF H<= 
1GGTO "A" 


-215:M=W: GOT "A" 


300: "S"HEEF 1: 
PRINT "TGNNE 
ES <<": 
USING 

ZOS: FOR Z=1TO 2h 
—iSTEP 2: 
GÜSUE "I": 
PRINT 1+INT 
ÉZ-233 LOGE 
MT aNERTE 
:GÜTÉ "a" 


400: "L'BEEF 1: 
PAUSE "FOHCT 
Y=ÈÉE “°N+E u : 
INPUT "YAL H 
CO) 7754 
IF W=OSOTO 
LL TL 
405: "Li "HN=W: P=0: 
G=G: R=0: S=0 
410: FOR £=1TD 2" 
RISTEP 2: 
GOSUB “I":P= 


PH 2H: Q=0+x 
PHSRERETENNI 
SES+YIHEXT 2 
#15: CEMF-Q0: IF C 
=OPAUSE "DIY 
ISEUR 01": 
GOTG "4" 
+20: A=CMR-QS CI 
E={PS-QR."C 
ARS E=C: FOR Z=1 
TÜ 2M-1STEF 
2:GGSUR "I": 
LEARN: ESE+ 


4SO:HEEP 2: 
SPRINT "LISS 
AGE CRIDRE “3 
NIPRIHT "A=" 
SASPRINT "E= 
BE PRIHT "E 


USING 


S00: "P"BEEP LE 
A=OIF E=Û 
GSOTG Lu L u 

905: "P1"INPLUT "I 
EE FRÛI 0-5 
L) F'INIIF W 
=ÛGOTO "L" 

210: Hs INPUT "F 
IN PRGJ?"5 1: 
IF WETIFAUSE 


"ERREUR! 't 
GOTG "Fi" 
515: F=NIUSIHG : 
PRINT “PEOJ 
“sDs 1 1: . 
FÜR = =DTO Fi 
HERETHEUEU+E 
SPRINT Z5":" 
SNINEXT € 
SUSAD®N: LIEL+E 
SIF Di aTi 
_ LET D=ñi£Tii 
USAGE 
M=BFCANIVeY+E 
3IF F<AC2SEZ 
MILET F=Âtz 
+EMI I MERCLE+ 
2H) 
IF U=0OPRINT 
DES ie 
GOERNER 
T=CÉLÉARS CW 
APPRIS FANS 
Dia3-12#E2 
BEEF 2 PRINT 
"= 3 USING 
“ftttt"sD;s LL || 
sFs"s "SUSIHG 
CHAR. HHUSTS 
Hyare # GOTÈ "pi 


600: "F"ENT 
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Alain Gandossi 


Sur votre poquette 
tic-tac-toe 





Le tic tac toe est un morpion qui se joue sur un da- 
mier 3 X 3. Le but du jeu est d'aligner 3 ronds ou 3 
croix. 

La numérotation des cases se fait ainsi : 


Tableau 





Le programme démarre en tapant SHFT X puis vous de- 
mande si vous voulez jouer le premier. Répondez par 
O ou N, donnez votre coup (cf tableau) puis attendez 
le coup de l'ordinateur. 


Vu la rapidité du PC-1211 le programme effectue son 
analyse sur 1/2 coup. Le poquette simuie chacun des 
coùps possibles et examine la situation. 

De ce fait, si à ce moment, il se retrouve avec une 
rangée de 2 pions adverses, il a perdu la partie. 
C'est pourquoi le coefficient affecté à une rangée 
de 2 pions adverses est supérieur à celui affecté à 
une rangée de 2 de ses pions. 

Le coefficient d'une rangée de 3 de ses pions est é- 


1:R=8: U=D: Y=QCX) 
+CQCX)=D)XCBRCX 
+TD+QCX+2XTDXC 
@CX+T)=B)) 
:R=QCXD+QCX+F)+ 
@CX+2XT):IF R= 
BRETURN 
:IF R/Y<2INT CR 
/Y)LET U=2: 
RETURN 
:U=(@CX)=D)+(GC 
R+T)=D)+CGCX+2 
XT)=2) 
: U=@C12+U+3X(Y- 
4))KCU<23): 
RETURN 
: “A"J=-1E9 
: FOR Z=1T0 9:1F 
INT @(Z)<)2 
NEXT Z:GOTO 24 
à 
7:@(2)=4 
:S=D: FOR X=1T0 


PSTEPRSAI= T1 
GOSUB 1:S=S+Ù;: 
NEXT X 


:FOR X=1T0 3:T= 


3: GOSUB 1:S=S+ 
U: NEXT X 


:T=6:FOR X=1T0 


SSTERAP AI? 
GOSUB 1:S=S+ÙU: 
NEXT X 


TES SDJEEN SES" 


K=Z:1F S>52080 
THEN 698 


:@(Z)=9 
:NEXT 2 
: IF S<-S28000 


THEN 728 


» BEEREZ2ARRANITES 


Je joue en “;K« 


: QCK)=4 


:.J=D:FOR Z=1T0 


9: IF @CZ2)=BLET 
2=18 





505: 


589; ‘N'REM 





:NEXT Z:IF 2=9 


: *O" INPUT 


: @(Z)=5:FOR 2=] 


NENTRZ ME AQIS 


: °X"FOR PQ=ITO 


videmment supérieur à tous les autres, la victoire 
primant tout (sauf la défaite). 
J'ai voulu éviter que la machine joue non pas pour 
gagner mais pour empêcher l'adversaire de gagner. De 
ce fait, le coefficient d'une rangée d'1 de ses pions 
est supérieur au coefficient d'une rangée d'un pion 
adverse. 
: Mémoires L 

M 

N 

0 

P 


Q 


Coefficients 


Une chose peut être modifiée pour obtenir un meilleur 
niveau : jouer le premier coup en 5 conduit tres sou- 
vent à des parties nulles car ensuite chaque pions 
posé constitue une rangée de 2, donc une menace. Il 
devient de ce fait très difficile de préparer quel- 
que chose à deux niveaux. 

Il faudrait peut être éliminer ce coup des possibi- 
lités de premier coup (lignes 509, 510). 


Variables 

A à I : tableau de jeu 4 : pion de l'ordinateur 
5 : pion de l'adversaire 
Oreaseivide 


3 U=U+T: U=UNS: U= 
U—INT U:K=INT 
OU) C4XU)D:K=1+2XK: 
ouez-vous (1-9 PRINT “Je joue 
DORE URI ET O7 en ";K:Q@(K)=4 

<DOTHEN 399 GOTO 328 
BEEP S:PRINT ‘ 
Je joue en ‘”;a 
PRINT "Et Je 9 
done. .-- END 
:BÉEP S:PAUSE 
Vous gagnez... 
Me PRINTSBNREE 
UPO EN OMEND 
:BEEP S:PRINT * 
EFsmitiiters 


THEN 828 s 


TO 9:1F @(2)=p 
LET Z=19 


THEN 898 
PAUSE “Je refl 
echis-..*:G0T0 


fa 


9: @R(PQ)=2: NEXT 
PQ: L=1ES:M=199 
: N=19:9=-1E6:P 
ES 0-55 
INPUT “Vous co 
mmencez ? (o-n 
>=: 2$: GOTO 2$ 


VERSION 
PC =ES08 
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RSR EE a POQUETTE 


RO DOQUETTE 











1:R=D: U=D: Y=ACX) 
+(ACXI=DDXCACX 
+T)D+ACX+2T)KCA 
CX+T)=2)) 

2:R=ACXDI+ACX+ETD+ 
ACX+2T):1F R=9 
RETURN 

3:1F R/YCDINT CR 
/ZY)LET V=9: 
RETURN 

a: U=(ACX)=B)+CAC 
X+T)=D)D+(ACX+2 
T)=0) 

B:U=AC12+U+3KXCY- 
4))K(U< 23): 
RETURN 

NS MAMIE =TES 

16: FOR Z=1T0 9:1F 
INT A(Z)<)DA 
NEXT Z:GOTO 24 
(z] 

1700294 

29:S=D:FOR X=1T0 
PSTEP 3:T=1: 
GOSUB 1:S=S+0: 
NEXT * 

25:FOR X=1TO 3:T- 

3: GOSUB 1:S=S+ 

U: NEXT X 



























































































39: T=6:FOR X=1T0 
3BSTEP 2:T=1-2: 
GOSUB 1:S=S+U: 
NEXT X 

228:1F SDJLET J=S: 
K=Z:1F S>50200 
THEN 692 

225:A(2)=9 


230:NEXT 2 


249@:1F S<-S2228 
THEN 790 

259:BEEP 2:PRINT 
Je douce en as 
:A(K)=4 

260: J=D:FOR Z=1T0 
9; 1F ACZ)I=ALET 
2=19 

27B8:NEXT Z:I1F 2=9 
THEN 899 

399: “O"INPUT “Ou j 
ouez-vous (1-9 
JAP 7 RES ACZ) 
<DATHEN 300 

391:A(2)=5:FO0R 2Z=1 


TO 9:IF AC2)=9 
LET Z2=19 A 


302: NEXT Z:IF 2<1S 
THEN 808 


J : SCORE DU MEILLEUR COUP ENREGISTRE 
(-oo au départ car le score de la Îère case 
examinée doit être > à d) 


K : meilleur coup enregistré 


L'M;N : 
3, FE 


ORESOSS 


R : somme de la valeur des pions de la rangée, colon- 


coefficient respectivement d'une rangée de 
1 pions de l'ordinateur 


idem pour les pions de l'ordinateur 


ne ou diagonale examinée ; sous programme de ro- 


tation (1—8) 


S : score de chaque position examinée (est comparée 


a J en 220) 


T : pas entre chaque case de la ligne, colonne ou 
diagonale examinée, utilisée avec X en 20, 25, 
30 et dans le S/PROM de 1 à 8. 

U : base du générateur aléatoire utilisé pour choisir 
le premier coup du PC-1211 


V : utilise des S/PRGM 
- en ligne 4 : 


nombre de case vide de la li- 


gne, colonne où diagonale étu- 
diée ; 


- en ligne 8 : 


étudiée (ef T) 


score de cette ligne. 


X : première case de La Ligne, colonne, diagonale 


Y : identification du premier de la ligne, colonne, 


diagonale étudiée 


Z : coup étudié, boucle générale. 
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319: PAUSE ‘Je refl 
echis----AG0TE 


PRINT “Je joue 
en “;K:A(CK)=4 


“Aa" 528: GOTO 328 

590: 'K"a=2:B=2:C=0 GOBD:REEP 5S:PRINT * 
:D=2:F=2:F=2;:G Je joue en “;2 
=D:H=9:1=9:L=1] GID:PRINT “Et je 9 
ES:M=199:N=19: ogne...':END 
Q=-1E6:P=-1E3;: 200:PBEEP S:PAUSE " 
Q=-5 Vous gagnez... 

595: INPUT “Vous co LYPRINT-EB R À 


mmencez ? (o-n UD CESSE ENT 
2";:2$:GOT0 2$ 800:BEEP S:PRINT ‘ 
509: "N'REM Egalite-.. 
919: U=U+N: U=UNS: U= | 
U—INT U:K=INT VERSION 
(4U):K=1+2K: PC-1211 


ORGANIGRAMME 


INITIALISATION 


CHOIX DU 1° JOUEUR (LIGNE 505) 
non ON VA A L'ETIQUETTE "O0" 


L'ORDINATEUR JOUE EN 1° 
oui 

ON JOUE 1 COUP (LIGNES 509, 510) 

PARMI LES 5 POSSIBLES 





























ON DEMANDE SON COUP (LIGNES 300, 301, 302, 310 
AU JOUEUR 


ON VERIFIE QU'IL RESTE 
DES CASES LIBRES 





Je- © (LIGNE 15) 


EXAMEN DES COUPS POSSIBLES 


L x 
CASE DEJA EXAMINEE 24 EXAMEN DE LA PROCHAINE CASE 


(LIGNE 16) 
OCCUPEE 7? 
non 
ON Y MET 1-PION 
DU le (LIGNE 17) 


ON EVALUE LA POSITION (LIGNES 20,15, 30) 


S/PRGRM DE 1 A 8 


SI LE SCORE DE LA POSITION 
EST SUPERIEUR AU MEILLEUR 
SCORE DEJA ENREGISTRE (coJ) 


alors le coup examiné 
devient le meilleur 
coup 

(LIGNE 220) 


RETOUR A LA POSITION 
INITIALE 


(LIGNE 225) 


PROCHAINE CASE (LIGNE 230) 
Ÿ 


LE PC-1211 JOUE LE MEILLEUR 
COUP ENREGISTRE, (LIGNE 250) 
APRES AVOIR VERIFIE SI LA 
POSITION N'ETAIT PAS PERDUE, (LIGNE 240) 
ON VERIFIE QUE LA PARTIE N'EST PAS NULLE 


PAPetie 


le DOS de À àZ 


COPY 


(suite) 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation | 


des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont beaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (il 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages 27") 


Leur but est de fournir à l'utilisateur une 
information-rapide d'accès (classement alphabétique), 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des commandes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 
1e ou les mots appropriés. Parmi ceux-ci, nous 
trouverons par exemple : "nomfich", qui désigne 

un nom de fichier, "motpasse" qui signifie qu'un 
mor de passe (password) est attendu à cet endroit. 
Ds cous les cas, un coup d'oeil sur les exemples 
SQnrÉs devrait lever toute ambiguité. 

i1 faut signaler que le NEWDOS80 emploie 
remment la virgule où l'espace comme 
Sp2r2teur dans les commandes. 





———————aaLaL eZ 


_—_— —— es —… 





c) NEWDOS80 V2.0 (formats 1 à 4) 


COPY,nomfich1[,TO] ,nomfich2[,SPDN=dn3][,DPDN-dn#] 


Les crochets indiquent que les paramètres qu'ils en- 
tourent sont optionnels). 


Ce format, comme dans le cas TRSDOS et LDOS, permet 
la duplication d'un fichier origine nomfichl en un 
fichier destination nomfich2. Ce dernier peut se ré- 
duire à la simple spécification du numéro d'unité, 
par exemple : 


COPY, PROG/CMD:0, :2 (ou : PROG/CMD:0 TO :2) 


Le paramètre SPDN (SourcePDrive Number) indique au 
SED que pour toutes les opérations d'entrées/sorties 
concernant l'unité de disquette source, les spécifi- 
cations de l'unité dn3 (contenues dans le PDRIVE du 
disque "system") sont à prendre en compte en lieu et 
place des spécifications normales du disque source 
(la commande PDRIVE définie ultérieurement permet de 
déterminer les spécifications de 10 types d'unités 

de disquette). Ce paramètre est surtout utile lors- 
que l'on veut copier de manière occasionnelle un fi- 
chier sur une disquette ayant des spécifications au- 
tres que celles décrites dans le PDRIVE (densité, nom- 
bre de pistes, format, etc...). Prenons un exemple. 
L'unité 1 est déclarée en double densité dans le 
PDRIVE mais on désire copier sur la disquette 0 le 
fichier d'une disquette simple densité. La première 
solution consiste à modifier le PDRIVE du disque 
"system" en déclarant l'unité 1 en simple densité 

et, après copie, restituer les spécifications initia- 
les ; la seconde solution est plus simple si le PDRI- 
ve contient une spécification simple densité en unité 
7 par exemple. Il suffira de frapper : 


COPY,TEST/CMD: 1,TEST/CMD:0,SPDN=7 


Le paramètre DPDN a un rôle identique mais cette fois, 
pour l'unité de destination (Destination PDrive Num- 
ber) qui prendra - le temps de la copie- les spéci- 
fications décrites par l'unité dn4 du PDRIVE système. 


Remarque : Ces options peuvent être par exemple uti- 
lisées avec profit dans le cas de duplications de fi- 
chiers "origine" et "destination" contenus sur des 
disquettes à densités de stockage différentes, dans 
la mesure ou PDRIVE précise des caractéristiques as- 
sociées à ces différentes densités. 


COPY,$nomfich1[,T0],nomfich2{,SPDN-dn31[,DPDN-dn4] 


Cette ligne de commande est identique au format 1 
excepté le caractère $ préfixant le nom du fichier 
source à copier (nomfichi) et indiquant que celui-ci 
se trouve sur l'unité O mais sur un support contenant 
un système d'exploitation différent de NEWDOS-80 2.0. 
Le système demande alors de changer la disquette au 
moment opportun et fait la distinction entre disquet- 
tes source, destination et système. Remarque nom- 
fiche doit obligatoirement être sur une unité diffé- 
rente de O0. 


Exemple : L'unité O0 contient NEWDOS-80 et l'unité 1 
une disquette "non-system". On veut transférer sur 
l'unité 1 un fichier PROG/BAS figurant sur une dis- 
quette TRSDOS (systèmes d'exploitation différents). 
On devra faire : 


COPY,$PROG/BAS:0 TO PROG/BAS:1 
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- Format 3 


COPY, [:lan1,nomfich1[,TO],nomfich2[,SPDN=an3][,DPDN-=4] 


Ce format est également identique au format 1 à la 
différence près que l'utilisateur impose que la copie 
se fasse sur une seule unité de disquette (dn1), les 
fichiers étant sur des supports différents. Le DOS 
demande alors l'insertion des disquettes au moment 
voulu. Si l'unité 0 est utilisée, les disquettes sour- 
ce et destination DOIVENT contenir le MEME système 
d'exploitation (NEWDOS-80). 


Remarque : Dans ce cas, les spécifications des noms 
de fichiers ne doivent pas inclure de numéro d'unité 
de disquette. Exemple : 


COPY, 1,PROG/BAS, PROG/BAS 


- Format À 


COPY, L:Jdn1,$nomfich1[,T0],nomfich2[,SPDN=dn3] 
[,DPDN=dn4] 


Ce format se comporte essentiellement comme le précé- 
dent, excepté le fait que le fichier source ou desti- 
nation (ou les deux à la fois) résident sous des DOS 
différents ou tout simplement sur des disquettes de 
données. IL est surtout interessant pour des utilisa- 
teurs ne possédant qu'une seule unité. NEWDOS-80 de- 
mande alors l'insertion successive des disquettes 
SYSTEM, SOURCE et DESTINATION. 


d) LDOS 5.0 et 5.1 (formats 2 et 3) 


COPY nomfich1 TO :d (LRL=nnn,CLONE) 


Commande indentique au format 1 de ce même DOS, si 

ce n'est le fait que le fichier destination n'est re- 
péré que par le numéro de l'unité ou doit être inser- 
rée la disquette destination (nom, extension, mot de 
passe identiques à ceux du fichier source). 


COPY nomdisp1l TO nomdisp2 


nomdisp1 et nomdisp2 sont les noms respectifs des 
dispositifs logiques d'entrées/sorties source et des- 
tination choisis dans la liste suivante : 


#KT --> clavier 

#DO ---> vidéo 

*PR ---> imprimante 

*JL =-—> traceur de commande (Job Log) 

*SI --—> entrée source (normalement *KI) 

X*LO --—» sortie liste (normalement *DO) 

#VYD ==» dispositif défini par l'utilisateur 


Cette commande permet la recopie d'un organe périphé- 
rique d'E/S vers un autre. Pour l'utiliser, il est 
impératif que les dispositifs spécifiés soient actifs 
et aient reçu préalablement une assignation à un'"dri- 
ver" donné (commande SET). Exemple 


COPY *KI TO “PR 


effectue la recopie du clavier sur l'imprimante (cha- 
que touche enfoncée est transmise vers le dispositif 
d'impression). 


LR RD En ne eus so Lo MC PR ones noce 


Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 64). Le format est le suivant: 


Nom abrégé de l'article, numéro de page : 1 à à 
mots-clés. - 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo— 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins :; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


EDIT, 20 : ESSAI, EDITEUR, LOGICIEL 

ACCEL3, 21 : ESSAI, COMPILATEUR, BASIC, LOGICIEL 

PASCAL80, 22 : ESSAI, COMPILATEUR, PASCAL, LOGICIEL 

DEFORMATION, 24 : PROGRAMME, GRAPHIQUES 

TRACE SECMENT, 28 : PROGRAMME, GRAPHIQUES 

DE L'ORDRE, 29 : PROGRAMME, CASSETTES 

SYNTHETISEUR VOCAL, 31 : ESSAI, PAROLE, LOGICIEL, 
MATERIEL 

INTERFACE MDX3, 33 : ESSAI, DISQUETTES, MATERIEL 

IL POMPAIT, 34 : PROGRAMME, ENSEIGNEMENT, 
GRAPHIQUES 

TRAITEMENT DE TEXTE? 37 : 

OUVERTURE, 40 : 

NEWDOS80, 41 


PROGRAMME, TDT 

BRICOLAGE, MATERIEL, INTERFACE 

ESSAI, LOGICIEL, DOS 

VU-METRE, A4 : BRICOLAGE, MATERIEL, CASSETTES 

OUTILS, 45 : OUTILS, BASIC, ASSEMBLEUR, MONITEUR 

TRACE VARIABLES, 48 : PROGRAMME, BASIC, OUTILS 

UTILITAIRE, 51 : PROGRAMME, OUTILS, CLAVIER, MOD1 

NUCLEAIRE, 54 : POQUETTE, PROGRAMME, JEU 

FACE CACHEE, 57 : POQUETTE, PC2, PROGRAMME, 
ASSEMBLEUR 

TRIS, 59 : POQUETTE, PCI, PROGRAMME, TRI 

BOGUES, 60 : POQUETTE, PC2, PROGRAMME 

LISSEZ, 61 : POQUETTE, PROGRAMME, PREVISION 

TIC-TAC-TOE, 63 : POQUETTE, PROGRAMME, JEU 

DOS DE A A Z, 65 : FICHE DOS 
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» Verbatim 
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